什么状况？

想看结果 end program 前加pause

Loaded 'ntdll.dll', no matching symbolic information found.
Loaded 'C:\WINDOWS\system32\kernel32.dll', no matching symbolic information found.
The thread 0xFFC has exited with code 0 (0x0).
The program 'H:\mm\example1\digui\Debug\digui.exe' has exited with code 0 (0x0).
这是运行时候显示的

加了pause 之后就会出错误

Compiling Fortran...
H:\mm\example1\digui\digui.f90
H:\mm\example1\digui\digui.f90(31) : Error: The statement following a CONTAINS is not a function-stmt or a subroutine-stmt.
end function
--------^
H:\mm\example1\digui\digui.f90(32) : Error: This statement is incorrectly positioned.
pause
--------^
Error executing df.exe.

digui.exe - 2 error(s), 0 warning(s)

哦  把pause加到contains前面