diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 index 68d90e94539..97a692ba667 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 @@ -1,3 +1,6 @@ +! Verify that a conditional "call abort" inside an OpenACC parallel region does +! the right thing. + program main implicit none @@ -6,7 +9,7 @@ program main !$acc parallel copyin(argc) if (argc .ne. 0) then - STOP 1 + call abort end if !$acc end parallel |