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 13end module bug4_mod 14 15program bug4_structure 16 use bug4_mod 17 implicit none 18 type(bug4) t 19 t = bug4() 20 write(*,*) t 21end program bug4_structure 22