1! Check module procedures with arguments 2module module_proc 3contains 4subroutine s(p) 5 integer p 6end subroutine 7end module 8 9program test 10use module_proc 11integer i 12call s(i) 13end program 14 15