procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR testsuite/58851 (FAIL: gfortran.dg/unlimited_polymorphic_13.f90 -O0 execution test)

Browse source 
PR testsuite/58851
* gfortran.dg/unlimited_polymorphic_13.f90: Properly compute
storage size.

From-SVN: r208612
This commit is contained in:
Andreas Schwab 2014-03-17 09:23:15 +00:00 • committed by Andreas Schwab
parent 0f70eb3252
commit a8f9069dd1
2 changed files with 18 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2014-03-17 Andreas Schwab <schwab@linux-m68k.org>
PR testsuite/58851
* gfortran.dg/unlimited_polymorphic_13.f90: Properly compute
storage size.
2014-03-15 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/58324

18
gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90
View file

@ -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)
sz = storage_size(r3)*2
case (16)
sz = storage_size(r4)*2
case default
call abort()
end select
select case (k)
case (real_kinds(size(real_kinds)-1))
sz = storage_size(r3)*2
end select
select case (k)
case (real_kinds(size(real_kinds)))
sz = storage_size(r4)*2
end select
if (sz .eq. 0) call abort()
if (storage_size(o) /= sz) call abort()