+
−! { 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