flang/test/Semantics/modfile13.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 module m
   3   character(2) :: z
   4   character(len=3) :: y
   5   character*4 :: x
   6   character :: w
   7   character(len=:), allocatable :: v
   8 contains
   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
  16 end
  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