PR fortran/57893
* gfortran.dg/unlimited_polymorphic_13.f90 : Break up select
type block.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@204286
138bc75d-0d04-0410-961f-
82ee72b054a4
+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.
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