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