Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/scale_1.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
! { dg-do run } ! inspired by PR17175 REAL X DOUBLE PRECISION Y INTEGER, PARAMETER :: DP = KIND(Y) INTEGER(kind=1) I1 INTEGER(kind=2) I2 INTEGER(kind=4) I4 INTEGER(kind=8) I8 X = 1. Y = 1._DP I1 = 10 I2 = -10 I4 = 20 I8 = -20 X = SCALE (X, I1) X = SCALE (X, I2) IF (X.NE.1.) STOP 1 X = SCALE (X, I4) X = SCALE (X, I8) IF (X.NE.1.) STOP 2 Y = SCALE (Y, I1) Y = SCALE (Y, I2) IF (Y.NE.1._DP) STOP 3 Y = SCALE (Y, I4) Y = SCALE (Y, I8) IF (Y.NE.1._DP) STOP 4 END