gcc/testsuite/gfortran.dg/scale_1.f90

   1 ! { dg-do run }
   2 ! inspired by PR17175
   3 REAL X
   4 DOUBLE PRECISION Y
   5
   6 INTEGER, PARAMETER :: DP = KIND(Y)
   7
   8 INTEGER(kind=1) I1
   9 INTEGER(kind=2) I2
  10 INTEGER(kind=4) I4
  11 INTEGER(kind=8) I8
  12
  13 X = 1.
  14 Y = 1._DP
  15
  16 I1 = 10
  17 I2 = -10
  18 I4 = 20
  19 I8 = -20
  20
  21 X = SCALE (X, I1)
  22 X = SCALE (X, I2)
  23 IF (X.NE.1.) CALL ABORT()
  24 X = SCALE (X, I4)
  25 X = SCALE (X, I8)
  26 IF (X.NE.1.) CALL ABORT()
  27
  28 Y = SCALE (Y, I1)
  29 Y = SCALE (Y, I2)
  30 IF (Y.NE.1._DP) CALL ABORT()
  31 Y = SCALE (Y, I4)
  32 Y = SCALE (Y, I8)
  33 IF (Y.NE.1._DP) CALL ABORT()
  34
  35 END