diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/arrayio_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/arrayio_1.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/arrayio_1.f90 b/gcc/testsuite/gfortran.dg/arrayio_1.f90 index 7b40d65734e..b5b583162ba 100644 --- a/gcc/testsuite/gfortran.dg/arrayio_1.f90 +++ b/gcc/testsuite/gfortran.dg/arrayio_1.f90 @@ -12,11 +12,11 @@ write(r,'(3(2x,i4/)/3(3x,i6/))') i i = 0 read(r,'(3(2x,i4/)/3(3x,i6/))') i - if (any(i.ne.(/(j,j=1,6)/))) call abort() + if (any(i.ne.(/(j,j=1,6)/))) STOP 1 do j=1,12 do k=1,2 if ((j.gt.8.and.k.eq.1).or.(k.eq.2)) then - if (r(j,k).ne.'0123456789AB') call abort() + if (r(j,k).ne.'0123456789AB') STOP 2 end if end do end do @@ -24,9 +24,9 @@ ! Write to a portion of a character array r = '0123456789AB' write(r(3:9,1),'(6(i12/))') i - if (r(2,1).ne.'0123456789AB') call abort() + if (r(2,1).ne.'0123456789AB') STOP 3 do j=3,8 - if (iachar(trim(adjustl(r(j,1))))-46.ne.j) call abort() + if (iachar(trim(adjustl(r(j,1))))-46.ne.j) STOP 4 end do - if (r(9,1).ne.' ') call abort() + if (r(9,1).ne.' ') STOP 5 end program arrayio_1 |