blob: d68d4f8ef9d6438bbd04a161480810326c8f9cb9 [file] [log] [blame]
! RUN: %python %S/test_modfile.py %s %flang_fc1
! Ensure that a dummy procedure's interface's imports
! appear in the module file.
module m
type :: t
end type
contains
subroutine s1(s2)
interface
subroutine s2(x)
import
class(t) :: x
end subroutine
end interface
end subroutine
end module
!Expect: m.mod
!module m
!type::t
!end type
!contains
!subroutine s1(s2)
!interface
!subroutine s2(x)
!import::t
!class(t)::x
!end
!end interface
!end
!end