xref: /llvm-project/flang/test/Semantics/modfile37.f90 (revision dc453dcf760e6d558da3a4d7fff301baa5f37aba)
1! RUN: %python %S/test_modfile.py %s %flang_fc1
2
3! Ensure that a dummy procedure's interface's imports
4! appear in the module file.
5
6module m
7  type :: t
8  end type
9 contains
10  subroutine s1(s2)
11    interface
12      subroutine s2(x)
13        import
14        class(t) :: x
15      end subroutine
16    end interface
17  end subroutine
18end module
19!Expect: m.mod
20!module m
21!type::t
22!end type
23!contains
24!subroutine s1(s2)
25!interface
26!subroutine s2(x)
27!import::t
28!class(t)::x
29!end
30!end interface
31!end
32!end
33