blob: 17386d4b8e006687782b46eea37c0dc29f718369 [file] [log] [blame]
! Check module procedures with arguments
module module_proc
contains
subroutine s(p)
integer p
end subroutine
end module
program test
use module_proc
integer i
call s(i)
end program