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      STOP
13!$ACC END PARALLEL
14      PRINT *, "WrONg WAy"
15
16      END PROGRAM MAIN
17
18! { dg-output "CheCKpOInT(\n|\r\n|\r)+" }
19! PR85463.  The "minimal" libgfortran implementation used with nvptx
20! offloading is a little bit different.
21! { dg-output "libgomp: cuStreamSynchronize error.*" { target openacc_nvidia_accel_selected } }
22! { dg-output "$" }
23! PR85463.  STOP with code zero (as implied here) should actually
24! terminate the process normally, but doesn't in the "minimal"
25! libgfortran implementation used with nvptx offloading.
26! { dg-shouldfail "" { openacc_nvidia_accel_selected } }
27