gcc/testsuite/gfortran.dg/derived_constructor_comps_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! gfortran was ICEing for the constructor of
   4 ! componentfree types.
   5 !
   6 ! Contributed by James Van Buskirk
   7 ! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/c8dd08d6da052499/
   8 !
   9  module bug4_mod
  10    implicit none
  11    type bug4 ! no components
  12    end type bug4
  13 end module bug4_mod
  14
  15 program bug4_structure
  16    use bug4_mod
  17    implicit none
  18    type(bug4) t
  19    t = bug4()
  20    write(*,*) t
  21 end program bug4_structure