6e0d40b6f8
libgomp/ PR libfortran/85166 * testsuite/libgomp.oacc-fortran/abort-1.f90: Switch back to "call abort". * testsuite/libgomp.oacc-fortran/abort-2.f90: Likewise. libgfortran/ PR libfortran/85166 PR libgomp/85463 * runtime/minimal.c (stop_numeric): Reimplement. (stop_string, error_stop_string, error_stop_numeric): New functions. libgomp/ PR libgomp/85463 * testsuite/libgomp.oacc-fortran/error_stop-1.f: New file. * testsuite/libgomp.oacc-fortran/error_stop-2.f: Likewise. * testsuite/libgomp.oacc-fortran/error_stop-3.f: Likewise. * testsuite/libgomp.oacc-fortran/stop-1.f: Likewise. * testsuite/libgomp.oacc-fortran/stop-2.f: Likewise. * testsuite/libgomp.oacc-fortran/stop-3.f: Likewise. From-SVN: r259491
17 lines
302 B
Fortran
17 lines
302 B
Fortran
! Verify that a conditional "call abort" inside an OpenACC parallel region does
|
|
! the right thing.
|
|
|
|
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
|