Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/data_array_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
9 character(5) :: c(5) 9 character(5) :: c(5)
10 data a(1:2) / myint(4), myint(2) / 10 data a(1:2) / myint(4), myint(2) /
11 data a(3:5) / myint(1), myint(3), myint(1) / 11 data a(3:5) / myint(1), myint(3), myint(1) /
12 data c / mychar(1), mychar(2), mychar(3), mychar(1), mychar(2) / 12 data c / mychar(1), mychar(2), mychar(3), mychar(1), mychar(2) /
13 buffer = "" 13 buffer = ""
14 if (any(a.ne.[1,3,4,2,4])) call abort 14 if (any(a.ne.[1,3,4,2,4])) STOP 1
15 write(buffer,'(5(a))')c 15 write(buffer,'(5(a))')c
16 if (buffer.ne."abc def ghi abc def ") call abort 16 if (buffer.ne."abc def ghi abc def ") STOP 2
17 end program chkdata 17 end program chkdata