Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/exponent_1.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! PR fortran/28276 ! Original code submitted by Harald Anlauf ! Converted to Dejagnu for the testsuite by Steven G. Kargl ! program gfcbug36 implicit none real, parameter :: one = 1.0 real :: a = one if (fraction(a) /= 0.5) STOP 1 if (fraction(one) /= 0.5) STOP 2 if (fraction(1.0) /= 0.5) STOP 3 if (exponent(a) /= 1.0) STOP 4 if (exponent(one) /= 1.0) STOP 5 if (exponent (1.0) /= 1.0) STOP 6 if (scale(fraction(a), exponent(a)) / a /= 1.) STOP 7 if (scale(fraction(one), exponent(one)) / one /= 1.) STOP 8 if (scale(fraction(1.0), exponent(1.0)) / 1.0 /= 1.) STOP 9 end program gfcbug36