Does the "END PROGRAM" statement come before or after the subroutines?

[efoss]

Does the "END PROGRAM" statement come before or after the subroutines?

I'm a beginner with Fortran. I'm having problems with a program that has several subroutines. I've seen the "END PROGRAM" statement both before and after the subroutines. My program (running on Compaq Visual Fortran) seems to much prefer the "END PROGRAM" before the subroutines, but I'm still getting the following error message:

Error: Syntax error, found END-OF-FILE when expecting one of: <LABEL> <END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...

I've searched the manuals and Googled this to find an explanation, but haven't been successful. It sounds like I don't have some sort of "END" statement at the end of the program, since it always says that the problem line is the last line in the program.

Thanks.

Eric

 

[xwb]

It comes at the end of the program segment. It doesn't have to be at the beginning or the end although that is where most people will put it. For instance your layout could be

function xxx
...
end function

program main
...
stop
end program
subroutine fred
...
end subroutine

 

[efoss]

Thanks, xwb. That makes sense. That's how my compiler seemed to want it, but I was confused by the error message. I've now figured out that the error message came from some other mistake in my code (though I haven't yet figured out what that is).

Thanks again for the help.

Eric