program p | |
implicit none | |
integer :: hello | |
intrinsic flush | |
call s | |
call flush; stop | |
contains | |
subroutine s | |
implicit none | |
real :: three | |
parameter (THREE = 3) | |
print *, THREE + 2 + 63 * twice(4) | |
end subroutine | |
integer function twice(n) | |
implicit none | |
integer :: n | |
intent(in) :: n | |
twice = 2 * n | |
end function | |
end program |