Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
!Program to test SCALE intrinsic function. program test_scale call test_real4 (3.0, 2) call test_real4 (33.0, -2) call test_real4 (-3., 2) call test_real4 (0., 3) call test_real8 (0._8, 3) call test_real8 (3.0_8, 4) call test_real8 (33.0_8, -4) call test_real8 (-33._8, 4) end subroutine test_real4 (orig, i) real x,y,orig integer i x = orig y = x * (2.0 ** i) x = scale (x, i) if (abs (x - y) .gt. abs(x * 1e-6)) STOP 1 end subroutine test_real8 (orig, i) real*8 x,y,orig integer i x = orig y = x * (2.0 ** i) x = scale (x, i) if (abs (x - y) .gt. abs(x * 1e-6)) STOP 2 end