1! { dg-do run }
2
3      PROGRAM MAIN
4      IMPLICIT NONE
5
6! Initialize before the checkpoint, in case this produces any output.
7!$ACC PARALLEL
8!$ACC END PARALLEL
9
10      PRINT *, "CheCKpOInT"
11!$ACC PARALLEL
12      ERROR STOP 35
13!$ACC END PARALLEL
14      PRINT *, "WrONg WAy"
15
16      END PROGRAM MAIN
17
18! { dg-output "CheCKpOInT(\n|\r\n|\r)+" }
19! { dg-output "ERROR STOP 35(\n|\r\n|\r)+" }
20!
21! In gfortran's main program, libfortran's set_options is called - which sets
22! compiler_options.backtrace = 1 by default.  For an offload libgfortran, this
23! is never called and, hence, "Error termination." is never printed.  Thus:
24! { dg-output "Error termination.*" { target { ! { openacc_nvidia_accel_selected || openacc_radeon_accel_selected } } } }
25!
26! PR85463:
27! { dg-output "libgomp: cuStreamSynchronize error.*" { target openacc_nvidia_accel_selected } }
28!
29! { dg-shouldfail "" }
30