Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/scale_1.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
18 I4 = 20 18 I4 = 20
19 I8 = -20 19 I8 = -20
20 20
21 X = SCALE (X, I1) 21 X = SCALE (X, I1)
22 X = SCALE (X, I2) 22 X = SCALE (X, I2)
23 IF (X.NE.1.) CALL ABORT() 23 IF (X.NE.1.) STOP 1
24 X = SCALE (X, I4) 24 X = SCALE (X, I4)
25 X = SCALE (X, I8) 25 X = SCALE (X, I8)
26 IF (X.NE.1.) CALL ABORT() 26 IF (X.NE.1.) STOP 2
27 27
28 Y = SCALE (Y, I1) 28 Y = SCALE (Y, I1)
29 Y = SCALE (Y, I2) 29 Y = SCALE (Y, I2)
30 IF (Y.NE.1._DP) CALL ABORT() 30 IF (Y.NE.1._DP) STOP 3
31 Y = SCALE (Y, I4) 31 Y = SCALE (Y, I4)
32 Y = SCALE (Y, I8) 32 Y = SCALE (Y, I8)
33 IF (Y.NE.1._DP) CALL ABORT() 33 IF (Y.NE.1._DP) STOP 4
34 34
35 END 35 END