flang/test/Semantics/modfile13.f90

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