diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/internal_readwrite_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/internal_readwrite_2.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/internal_readwrite_2.f90 b/gcc/testsuite/gfortran.dg/internal_readwrite_2.f90 index 48b65865200..93e71df23d3 100644 --- a/gcc/testsuite/gfortran.dg/internal_readwrite_2.f90 +++ b/gcc/testsuite/gfortran.dg/internal_readwrite_2.f90 @@ -10,5 +10,5 @@ program main character(len=2), dimension(n1,n2,n3):: c write (unit=c(:,n2:1:-1,:),fmt="(I2)") (i,i=1,n1*n2*n3) line = transfer(c,mold=line) - if (line /=" 5 6 3 4 1 21112 910 7 8171815161314232421221920293027282526") call abort + if (line /=" 5 6 3 4 1 21112 910 7 8171815161314232421221920293027282526") STOP 1 end program main |