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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b231dc89ebde047412e7dd0ace8983f3d7fa6e06..03ad579ad318fee1c026301b311ba79eb2603b5a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90
index 10f644535b2c06244947b1c09f7cb1cc4a6508b3..0e27b172fb8979c24ad5740ebde1ec6bbd5fa2cf 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90
+++ b/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