Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/scale_1.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
68:561a7518be6b | 111:04ced10e8804 |
---|---|
1 ! { dg-do run } | |
2 ! inspired by PR17175 | |
3 REAL X | |
4 DOUBLE PRECISION Y | |
5 | |
6 INTEGER, PARAMETER :: DP = KIND(Y) | |
7 | |
8 INTEGER(kind=1) I1 | |
9 INTEGER(kind=2) I2 | |
10 INTEGER(kind=4) I4 | |
11 INTEGER(kind=8) I8 | |
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 |