diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/data_array_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/data_array_1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/data_array_1.f90 b/gcc/testsuite/gfortran.dg/data_array_1.f90 index 46c9a5bb7f9..3d696cd540e 100644 --- a/gcc/testsuite/gfortran.dg/data_array_1.f90 +++ b/gcc/testsuite/gfortran.dg/data_array_1.f90 @@ -11,7 +11,7 @@ program chkdata data a(3:5) / myint(1), myint(3), myint(1) / data c / mychar(1), mychar(2), mychar(3), mychar(1), mychar(2) / buffer = "" - if (any(a.ne.[1,3,4,2,4])) call abort + if (any(a.ne.[1,3,4,2,4])) STOP 1 write(buffer,'(5(a))')c - if (buffer.ne."abc def ghi abc def ") call abort + if (buffer.ne."abc def ghi abc def ") STOP 2 end program chkdata |