34 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m3 character(2) :: z4 character(len=3) :: y5 character*4 :: x6 character :: w7 character(len=:), allocatable :: v8contains9 subroutine s(n, a, b, c, d)10 integer :: n11 character(len=n+1,kind=1) :: a12 character(n+2,2) :: b13 character*(n+3) :: c14 character(*) :: d15 end16end17 18!Expect: m.mod19!module m20! character(2_4,1)::z21! character(3_4,1)::y22! character(4_8,1)::x23! character(1_8,1)::w24! character(:,1),allocatable::v25!contains26! subroutine s(n,a,b,c,d)27! integer(4)::n28! character(n+1_4,1)::a29! character(n+2_4,2)::b30! character(n+3_4,1)::c31! character(*,1)::d32! end33!end34