blob: e463834bde8d202f43efff72df81657c586d5de7 [file] [log] [blame]
! RUN: %S/test_modfile.sh %s %t %f18
! Check modfile generation for external interface
module m
interface
integer function f(x)
end function
subroutine s(y, z)
logical y
complex z
end subroutine
end interface
end
!Expect: m.mod
!module m
! interface
! function f(x)
! real(4)::x
! integer(4)::f
! end
! end interface
! interface
! subroutine s(y,z)
! logical(4)::y
! complex(4)::z
! end
! end interface
!end