1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/derived_constructor_comps_3.f90 b/gcc/testsuite/gfortran.dg/derived_constructor_comps_3.f90
new file mode 100644
index 000000000..0aa2e4e1c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/derived_constructor_comps_3.f90
@@ -0,0 +1,22 @@
+! { dg-do compile }
+! 
+! gfortran was ICEing for the constructor of
+! componentfree types.
+!
+! Contributed by James Van Buskirk
+! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/c8dd08d6da052499/
+!
+ module bug4_mod
+   implicit none
+   type bug4 ! no components
+   end type bug4
+end module bug4_mod
+
+program bug4_structure
+   use bug4_mod
+   implicit none
+   type(bug4) t
+   t = bug4()
+   write(*,*) t
+end program bug4_structure
+! { dg-final { cleanup-modules "bug4_mod" } }