Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/array_constructor_19.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 (2018-10-24) |
parents | 04ced10e8804 |
children |
comparison
equal
deleted
inserted
replaced
111:04ced10e8804 | 131:84e7813d76e9 |
---|---|
8 real, parameter :: x1(1) = (/ x /) + 1 | 8 real, parameter :: x1(1) = (/ x /) + 1 |
9 real, parameter :: x2(1) = 1 + (/ x /) | 9 real, parameter :: x2(1) = 1 + (/ x /) |
10 real, parameter :: x3(1) = -(/ x /) | 10 real, parameter :: x3(1) = -(/ x /) |
11 real, parameter :: x4(2) = (/ x, 1. /) + (/ 2, (/3/) /) | 11 real, parameter :: x4(2) = (/ x, 1. /) + (/ 2, (/3/) /) |
12 | 12 |
13 if (any (x1 /= (/43./))) call abort | 13 if (any (x1 /= (/43./))) STOP 1 |
14 if (any (x2 /= (/43./))) call abort | 14 if (any (x2 /= (/43./))) STOP 2 |
15 if (any (x3 /= (/-42./))) call abort | 15 if (any (x3 /= (/-42./))) STOP 3 |
16 if (any (x4 /= (/44., 4./))) call abort | 16 if (any (x4 /= (/44., 4./))) STOP 4 |
17 end | 17 end |