mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
36 lines
467 B
Fortran
36 lines
467 B
Fortran
! { 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
|