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