flang/test/Semantics/modfile12.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 module m
   3   integer(8), parameter :: a = 1, b = 2_8
   4   parameter(n=3,l=-3,e=1.0/3.0)
   5   real :: x(a:2*(a+b*n)-1)
   6   real, dimension(8) :: y
   7   type t(c, d)
   8     integer, kind :: c = 1
   9     integer, len :: d = a + b
  10   end type
  11   type(t(a+3,:)), allocatable :: z
  12   class(t(a+4,:)), allocatable :: z2
  13   class(*), allocatable :: z4
  14   real*2 :: f
  15   complex*32 :: g
  16   type t2(i, j, h)
  17     integer, len :: h
  18     integer, kind :: j
  19     integer, len :: i
  20   end type
  21 contains
  22   subroutine foo(x)
  23     real :: x(2:)
  24   end
  25   subroutine bar(x)
  26     real :: x(..)
  27   end
  28   subroutine baz(x)
  29     type(*) :: x
  30   end
  31 end
  32
  33 !Expect: m.mod
  34 !module m
  35 !  integer(8),parameter::a=1_8
  36 !  integer(8),parameter::b=2_8
  37 !  integer(4),parameter::n=3_4
  38 !  integer(4),parameter::l=-3_4
  39 !  real(4),parameter::e=3.333333432674407958984375e-1_4
  40 !  real(4)::x(1_8:13_8)
  41 !  real(4)::y(1_8:8_8)
  42 !  type::t(c,d)
  43 !    integer(4),kind::c=1_4
  44 !    integer(4),len::d=3_4
  45 !  end type
  46 !  type(t(c=4_4,d=:)),allocatable::z
  47 !  class(t(c=5_4,d=:)),allocatable::z2
  48 !  class(*),allocatable::z4
  49 !  real(2)::f
  50 !  complex(16)::g
  51 !  type::t2(i,j,h)
  52 !    integer(4),len::h
  53 !    integer(4),kind::j
  54 !    integer(4),len::i
  55 !  end type
  56 !contains
  57 !  subroutine foo(x)
  58 !    real(4)::x(2_8:)
  59 !  end
  60 !  subroutine bar(x)
  61 !    real(4)::x(..)
  62 !  end
  63 !  subroutine baz(x)
  64 !    type(*)::x
  65 !  end
  66 !end