program f04 use foo_mod implicit none complex, parameter :: x= CMPLX(0,2.0*ACOS(0.0)) integer, parameter :: y=5 CALL foo(x) CALL foo(y) end program f04