diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inline_sum_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inline_sum_3.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/inline_sum_3.f90 b/gcc/testsuite/gfortran.dg/inline_sum_3.f90 index 6858228aade..b3ea5e3559c 100644 --- a/gcc/testsuite/gfortran.dg/inline_sum_3.f90 +++ b/gcc/testsuite/gfortran.dg/inline_sum_3.f90 @@ -19,13 +19,13 @@ program gfcbug115 do j = 1, nboxes pes(j) = modulo (j-1, nprocs) end do - if (any(nbx /= 1)) call abort + if (any(nbx /= 1)) STOP 1 do j = 0, nprocs-1 - if (.not. all(spread (pes==j,dim=1,ncopies=n_obstype))) call abort + if (.not. all(spread (pes==j,dim=1,ncopies=n_obstype))) STOP 2 ! The two following tests used to fail if (any(shape(sum(nbx,dim=2,mask=spread (pes==j,dim=1,ncopies=n_obstype))) & - /= (/ 2 /))) call abort + /= (/ 2 /))) STOP 3 if (any(sum (nbx,dim=2,mask=spread (pes==j,dim=1,ncopies=n_obstype)) & - /= (/ 1, 1 /))) call abort + /= (/ 1, 1 /))) STOP 4 end do end program gfcbug115 |