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
21 lines
586 B
Fortran
21 lines
586 B
Fortran
! { dg-do run }
|
|
|
|
PROGRAM MAIN
|
|
IMPLICIT NONE
|
|
|
|
PRINT *, "CheCKpOInT"
|
|
!$ACC PARALLEL
|
|
ERROR STOP
|
|
!$ACC END PARALLEL
|
|
PRINT *, "WrONg WAy"
|
|
|
|
END PROGRAM MAIN
|
|
|
|
! { dg-output "CheCKpOInT(\n|\r\n|\r)+" }
|
|
! { dg-output "ERROR STOP (\n|\r\n|\r)+" }
|
|
! PR85463. The "minimal" libgfortran implementation used with nvptx
|
|
! offloading is a little bit different.
|
|
! { dg-output "Error termination.*" { target { ! openacc_nvidia_accel_selected } } }
|
|
! { dg-output "libgomp: cuStreamSynchronize error.*" { target openacc_nvidia_accel_selected } }
|
|
! { dg-shouldfail "" }
|