xref: /llvm-project/flang/test/Semantics/modfile69.f90 (revision 8be575e49816ee6ff0b0b924e0b84b2a9fff98aa)
1! RUN: %python %S/test_modfile.py %s %flang_fc1
2module m1
3  type foo
4  end type
5  interface foo
6  end interface
7end
8
9!Expect: m1.mod
10!module m1
11!type::foo
12!end type
13!interface foo
14!end interface
15!end
16
17module m2
18  use m1, only: bar => foo
19end
20
21!Expect: m2.mod
22!module m2
23!use m1,only:bar=>foo
24!use m1,only:bar=>foo
25!interface bar
26!end interface
27!end
28
29module m3
30 contains
31  subroutine sub(x)
32    use m2
33    type(bar) x
34  end
35end
36
37!Expect: m3.mod
38!module m3
39!contains
40!subroutine sub(x)
41!use m2,only:bar
42!type(bar)::x
43!end
44!end
45