Subversion Repositories openrisc_me

! { dg-do run }

! { dg-do run }

! inspired by PR17175

! inspired by PR17175

REAL X

REAL X

DOUBLE PRECISION Y

DOUBLE PRECISION Y

INTEGER, PARAMETER :: DP = KIND(Y)

INTEGER, PARAMETER :: DP = KIND(Y)

INTEGER(kind=1) I1

INTEGER(kind=1) I1

INTEGER(kind=2) I2

INTEGER(kind=2) I2

INTEGER(kind=4) I4

INTEGER(kind=4) I4

INTEGER(kind=8) I8

INTEGER(kind=8) I8

X = 1.

X = 1.

Y = 1._DP

Y = 1._DP

I1 = 10

I1 = 10

I2 = -10

I2 = -10

I4 = 20

I4 = 20

I8 = -20

I8 = -20

X = SCALE (X, I1)

X = SCALE (X, I1)

X = SCALE (X, I2)

X = SCALE (X, I2)

IF (X.NE.1.) CALL ABORT()

IF (X.NE.1.) CALL ABORT()

X = SCALE (X, I4)

X = SCALE (X, I4)

X = SCALE (X, I8)

X = SCALE (X, I8)

IF (X.NE.1.) CALL ABORT()

IF (X.NE.1.) CALL ABORT()

Y = SCALE (Y, I1)

Y = SCALE (Y, I1)

Y = SCALE (Y, I2)

Y = SCALE (Y, I2)

IF (Y.NE.1._DP) CALL ABORT()

IF (Y.NE.1._DP) CALL ABORT()

Y = SCALE (Y, I4)

Y = SCALE (Y, I4)

Y = SCALE (Y, I8)

Y = SCALE (Y, I8)

IF (Y.NE.1._DP) CALL ABORT()

IF (Y.NE.1._DP) CALL ABORT()

END

END