Message ID | 87k3bt2n75.fsf@igel.home |
---|---|
State | New |
Headers | show |
diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90 index 0e27b17..8225738 100644 --- a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90 +++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90 @@ -23,18 +23,24 @@ contains integer :: k integer :: sz + sz = 0 select case (k) case (4) sz = storage_size(r1)*2 + end select + select case (k) case (8) sz = storage_size(r2)*2 - case (10) + end select + select case (k) + case (real_kinds(size(real_kinds)-1)) sz = storage_size(r3)*2 - case (16) + end select + select case (k) + case (real_kinds(size(real_kinds))) sz = storage_size(r4)*2 - case default - call abort() end select + if (sz .eq. 0) call abort() if (storage_size(o) /= sz) call abort()