flang/test/Semantics/modfile02.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 ! Check modfile generation for private type in public API.
   3
   4 module m
   5   type, private :: t1
   6     integer :: i
   7   end type
   8   type, private :: t2
   9     integer :: i
  10   end type
  11   type(t1) :: x1
  12   type(t2), private :: x2
  13 end
  14
  15 !Expect: m.mod
  16 !module m
  17 !type,private::t1
  18 !integer(4)::i
  19 !end type
  20 !type,private::t2
  21 !integer(4)::i
  22 !end type
  23 !type(t1)::x1
  24 !type(t2),private::x2
  25 !end