flang/test/Semantics/modfile21.f90

   1 ! RUN: %S/test_modfile.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 module m
   4   logical b
   5   bind(C) :: /cb2/
   6   common //t
   7   common /cb/ x(2:10) /cb2/a,b,c
   8   common /cb/ y,z
   9   common w
  10   common u,v
  11   complex w
  12   dimension b(4,4)
  13   bind(C, name="CB") /cb/
  14   common /b/ cb
  15 end
  16
  17 !Expect: m.mod
  18 !module m
  19 !  logical(4)::b(1_8:4_8,1_8:4_8)
  20 !  real(4)::t
  21 !  real(4)::x(2_8:10_8)
  22 !  real(4)::a
  23 !  real(4)::c
  24 !  real(4)::y
  25 !  real(4)::z
  26 !  real(4)::u
  27 !  real(4)::v
  28 !  complex(4)::w
  29 !  real(4)::cb
  30 !  common/cb/x,y,z
  31 !  bind(c, name="CB")::/cb/
  32 !  common/cb2/a,b,c
  33 !  bind(c, name="cb2")::/cb2/
  34 !  common/b/cb
  35 !  common//t,w,u,v
  36 !end