]>
Commit | Line | Data |
---|---|---|
49e4d580 TS |
1 | ! { dg-do run } |
2 | ! inspired by PR17175 | |
3 | REAL X | |
4 | DOUBLE PRECISION Y | |
5 | ||
6 | INTEGER, PARAMETER :: DP = KIND(Y) | |
7 | ||
df8652dc SK |
8 | INTEGER(kind=1) I1 |
9 | INTEGER(kind=2) I2 | |
10 | INTEGER(kind=4) I4 | |
11 | INTEGER(kind=8) I8 | |
49e4d580 TS |
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 |