diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 new file mode 100644 index 00000000000..2ba2bcb8aa6 --- /dev/null +++ b/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 @@ -0,0 +1,13 @@ +program main + implicit none + + integer :: argc + argc = command_argument_count () + + !$acc parallel copyin(argc) + if (argc .ne. 0) then + call abort + end if + !$acc end parallel + +end program main |