diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/reduction3.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/reduction3.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/reduction3.f90 b/libgomp/testsuite/libgomp.fortran/reduction3.f90 index 89b9d1a..b0a858b 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction3.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction3.f90 @@ -46,11 +46,11 @@ da = -1 end if !$omp end parallel - if (v) call abort + if (v) STOP 1 if (cnt .eq. 3) then - if (i .ne. 4 .or. any (ia .ne. (/7, 2, 2, 5, 5, 5/))) call abort - if (r .ne. 5 .or. any (ra .ne. (/6.5, 6.5, 4., 4./))) call abort - if (d .ne. 8.5 .or. any (da .ne. (/6.5, 8.5, 8.5, 8.5, 6.5/))) call abort + if (i .ne. 4 .or. any (ia .ne. (/7, 2, 2, 5, 5, 5/))) STOP 2 + if (r .ne. 5 .or. any (ra .ne. (/6.5, 6.5, 4., 4./))) STOP 3 + if (d .ne. 8.5 .or. any (da .ne. (/6.5, 8.5, 8.5, 8.5, 6.5/))) STOP 4 end if i = 1 @@ -94,10 +94,10 @@ da(1:4) = 6 end if !$omp end parallel - if (v) call abort + if (v) STOP 5 if (cnt .eq. 3) then - if (i .ne. 1 .or. any (ia .ne. (/1, 1, -2, -2, -2, 1/))) call abort - if (r .ne. -1 .or. any (ra .ne. (/4., -1.5, -8.5, -1.5/))) call abort - if (d .ne. -2.5 .or. any (da .ne. (/2.5, 2.5, 2.5, 6., 6.5/))) call abort + if (i .ne. 1 .or. any (ia .ne. (/1, 1, -2, -2, -2, 1/))) STOP 6 + if (r .ne. -1 .or. any (ra .ne. (/4., -1.5, -8.5, -1.5/))) STOP 7 + if (d .ne. -2.5 .or. any (da .ne. (/2.5, 2.5, 2.5, 6., 6.5/))) STOP 8 end if end |