Add identifier to END statement

Description:  add the identifier that belongs to the End statements ( End Function , End Subroutine ). It was proposed by Jay Carlton

State: Implemeted         Author: Matthew Fotzler     Version: Submission process 

Code Example:

    module testmodule
    integer :: xfromtestmodule
10 end

function testfunction(A)
    integer, intent(in) :: A
    testfunction = 4;
20 end ! A comment after the end!

program fortrantest

    print *, "Main program!"

contains
    integer function testfunction(A)
        integer, intent(in) :: A
        testfunction = 4;
30    end function
    subroutine do_stuff
        print *,"Hi!"
40    end subroutine
end

subroutine do_stuff
    print *,"Hi!"
50 end

   module testmodule
    integer :: xfromtestmodule
10 end module testmodule

function testfunction(A)
    integer, intent(in) :: A
    testfunction = 4;
20 end function testfunction ! A comment after the end!

program fortrantest

    print *, "Main program!"

contains
    integer function testfunction(A)
        integer, intent(in) :: A
        testfunction = 4;
30    end function testfunction
    subroutine do_stuff
        print *,"Hi!"
40    end subroutine do_stuff
end program fortrantest

subroutine do_stuff
    print *,"Hi!"
50 end subroutine do_stuff 

ScreenShots

             

HTML Comment Box is loading comments...