1! RUN: %python %S/test_modfile.py %s %flang_fc1 2module m 3 character(2) :: z 4 character(len=3) :: y 5 character*4 :: x 6 character :: w 7 character(len=:), allocatable :: v 8contains 9 subroutine s(n, a, b, c, d) 10 integer :: n 11 character(len=n+1,kind=1) :: a 12 character(n+2,2) :: b 13 character*(n+3) :: c 14 character(*) :: d 15 end 16end 17 18!Expect: m.mod 19!module m 20! character(2_4,1)::z 21! character(3_4,1)::y 22! character(4_8,1)::x 23! character(1_8,1)::w 24! character(:,1),allocatable::v 25!contains 26! subroutine s(n,a,b,c,d) 27! integer(4)::n 28! character(n+1_4,1)::a 29! character(n+2_4,2)::b 30! character(n+3_4,1)::c 31! character(*,1)::d 32! end 33!end 34