gcc/testsuite/gfortran.dg/empty_type.f90

   1 ! { dg-do compile }
   2 ! PR fortran/34202
   3 ! ICE on contruction of empty types
   4 ! Testcase contributed by Tobias Burnus
   5
   6 program bug4a
   7   implicit none
   8   type bug4
   9     ! Intentionally left empty
  10   end type bug4
  11
  12   type compound
  13     type(bug4) b
  14   end type compound
  15
  16   type(bug4), parameter :: f = bug4()
  17   type(compound), parameter :: g = compound(bug4())
  18 end program bug4a
  19