From a8f9069dd15beae8723ec4c028e1406fc6f0c98d Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 17 Mar 2014 09:23:15 +0000 Subject: [PATCH] re PR testsuite/58851 (FAIL: gfortran.dg/unlimited_polymorphic_13.f90 -O0 execution test) PR testsuite/58851 * gfortran.dg/unlimited_polymorphic_13.f90: Properly compute storage size. From-SVN: r208612 --- gcc/testsuite/ChangeLog | 6 ++++++ .../gfortran.dg/unlimited_polymorphic_13.f90 | 14 ++++++++++---- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index abd9579f805..067b63aaa6f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2014-03-17 Andreas Schwab + + PR testsuite/58851 + * gfortran.dg/unlimited_polymorphic_13.f90: Properly compute + storage size. + 2014-03-15 Jerry DeLisle PR libfortran/58324 diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90 index 0e27b172fb8..8225738e743 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() -- 2.30.2