PR c++/86342 - -Wdeprecated-copy and system headers.
[official-gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / error_stop-3.f
blob9c217f14ea1b7e4eb161fc4c1084987c95850440
1 ! { dg-do run }
3 PROGRAM MAIN
4 IMPLICIT NONE
6 PRINT *, "CheCKpOInT"
7 !$ACC PARALLEL
8 ERROR STOP "SiGN"
9 !$ACC END PARALLEL
10 PRINT *, "WrONg WAy"
12 END PROGRAM MAIN
14 ! { dg-output "CheCKpOInT(\n|\r\n|\r)+" }
15 ! { dg-output "ERROR STOP SiGN(\n|\r\n|\r)+" }
16 ! PR85463. The "minimal" libgfortran implementation used with nvptx
17 ! offloading is a little bit different.
18 ! { dg-output "Error termination.*" { target { ! openacc_nvidia_accel_selected } } }
19 ! { dg-output "libgomp: cuStreamSynchronize error.*" { target openacc_nvidia_accel_selected } }
20 ! { dg-shouldfail "" }