68 lines · plain
1! REQUIRES: flang-supports-f128-math2! RUN: %python %S/test_modfile.py %s %flang_fc13module m4 integer(8), parameter :: a = 1, b = 2_85 parameter(n=3,l=-3,e=1.0/3.0)6 real :: x(a:2*(a+b*n)-1)7 real, dimension(8) :: y8 type t(c, d)9 integer, kind :: c = 110 integer, len :: d = a + b11 end type12 type(t(a+3,:)), allocatable :: z13 class(t(a+4,:)), allocatable :: z214 class(*), allocatable :: z415 real*2 :: f16 complex*32 :: g17 type t2(i, j, h)18 integer, len :: h19 integer, kind :: j20 integer, len :: i21 end type22contains23 subroutine foo(x)24 real :: x(2:)25 end26 subroutine bar(x)27 real :: x(..)28 end29 subroutine baz(x)30 type(*) :: x31 end32end33 34!Expect: m.mod35!module m36! integer(8),parameter::a=1_837! integer(8),parameter::b=2_838! integer(4),parameter::n=3_439! integer(4),parameter::l=-3_440! real(4),parameter::e=3.333333432674407958984375e-1_441! real(4)::x(1_8:13_8)42! real(4)::y(1_8:8_8)43! type::t(c,d)44! integer(4),kind::c=1_445! integer(4),len::d=3_846! end type47! type(t(c=4_4,d=:)),allocatable::z48! class(t(c=5_4,d=:)),allocatable::z249! class(*),allocatable::z450! real(2)::f51! complex(16)::g52! type::t2(i,j,h)53! integer(4),len::h54! integer(4),kind::j55! integer(4),len::i56! end type57!contains58! subroutine foo(x)59! real(4)::x(2_8:)60! end61! subroutine bar(x)62! real(4)::x(..)63! end64! subroutine baz(x)65! type(*)::x66! end67!end68