flang/test/Semantics/modfile21.f90

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