Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/PR19754_2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 (2020-05-25) |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Test of Steve Kargl's fix to PR19754 ! This exercises bugs that the original patch caused ! program PR19754_2 real a(2,2), b(2,2),c(2,2),d(2,2) integer i(2,2),j(2,2),k(2,2) a = 1. ; b = 2. ; i = 4 c = b - floor( a / b ) ! this caused an ICE d = b - real(floor( a / b )) if (any (c/=d)) STOP 1 j = aint(b) - floor( a / b ) ! this caused an ICE if (any(real(j)/=d)) STOP 2 c = i if (any(real(i)/=c)) STOP 3 c = i + b ! this caused an ICE d = real(i) + b if (any(c/=d)) STOP 4 j = i + aint (a) k = i + a ! this caused an ICE if (any(j/=k)) STOP 5 end program PR19754_2