re PR fortran/57893 (Crash for allocatable character string during compilation.)

2013-11-01  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/57893
	* gfortran.dg/unlimited_polymorphic_13.f90 : Break up select
	type block.

From-SVN: r204286

gcc/testsuite/ChangeLog

+2013-11-01  Paul Thomas  <pault@gcc.gnu.org>
+
+	PR fortran/57893
+	* gfortran.dg/unlimited_polymorphic_13.f90 : Break up select
+	type block.
+
 2013-10-31  Jakub Jelinek  <jakub@redhat.com>
 
 	* g++.dg/gomp/simd-1.C: New test.

gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90

@@ -37,14 +37,22 @@ contains
     end select
 
     if (storage_size(o) /= sz) call abort()
+
+! Break up the SELECT TYPE to pre-empt collisions in the value of 'cn'
     select type (o)
       type is (complex(c1))
         if (storage_size(o) /= sz) call abort()
+    end select
+    select type (o)
       type is (complex(c2))
         if (storage_size(o) /= sz) call abort()
+    end select
+    select type (o)
       type is (complex(c3))
         if (storage_size(o) /= sz) call abort()
-      type is (complex(c4))
+     end select
+    select type (o)
+     type is (complex(c4))
         if (storage_size(o) /= sz) call abort()
     end select
   end subroutine s