Mercurial > hg > CbC > CbC_gcc

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! inspired by PR17175
kono
parents:
diff changeset
3 REAL X
kono
parents:
diff changeset
4 DOUBLE PRECISION Y
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 INTEGER, PARAMETER :: DP = KIND(Y)
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 INTEGER(kind=1) I1
kono
parents:
diff changeset
9 INTEGER(kind=2) I2
kono
parents:
diff changeset
10 INTEGER(kind=4) I4
kono
parents:
diff changeset
11 INTEGER(kind=8) I8
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 X = 1.
kono
parents:
diff changeset
14 Y = 1._DP
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 I1 = 10
kono
parents:
diff changeset
17 I2 = -10
kono
parents:
diff changeset
18 I4 = 20
kono
parents:
diff changeset
19 I8 = -20
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 X = SCALE (X, I1)
kono
parents:
diff changeset
22 X = SCALE (X, I2)
kono
parents:
diff changeset
23 IF (X.NE.1.) CALL ABORT()
kono
parents:
diff changeset
24 X = SCALE (X, I4)
kono
parents:
diff changeset
25 X = SCALE (X, I8)
kono
parents:
diff changeset
26 IF (X.NE.1.) CALL ABORT()
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 Y = SCALE (Y, I1)
kono
parents:
diff changeset
29 Y = SCALE (Y, I2)
kono
parents:
diff changeset
30 IF (Y.NE.1._DP) CALL ABORT()
kono
parents:
diff changeset
31 Y = SCALE (Y, I4)
kono
parents:
diff changeset
32 Y = SCALE (Y, I8)
kono
parents:
diff changeset
33 IF (Y.NE.1._DP) CALL ABORT()
kono
parents:
diff changeset
34
kono
parents:
diff changeset
35 END