2012-07-23 つまりこうしろと program bar integer n n=1 call foo(n) contains subroutine foo(n,m) m=n end subroutine end program $ gfortran foo.f foo.f:4.72: call foo(n) 1 Error: Missing actual argument for argument 'm' at (1)