[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / modfile06.f90
blob3a759e79c235d00a6645eaa44c88b5af88ff5c6b
1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
2 ! Check modfile generation for external interface
3 module m
4 interface
5 integer function f(x)
6 end function
7 subroutine s(y, z)
8 logical y
9 complex z
10 end subroutine
11 end interface
12 end
14 !Expect: m.mod
15 !module m
16 ! interface
17 ! function f(x)
18 ! real(4)::x
19 ! integer(4)::f
20 ! end
21 ! end interface
22 ! interface
23 ! subroutine s(y,z)
24 ! logical(4)::y
25 ! complex(4)::z
26 ! end
27 ! end interface
28 !end