Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/scale_1.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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