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 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 "STOP 35(\n|\r\n|\r)+" }
20! PR85463.  The "minimal" libgfortran implementation used with nvptx
21! offloading is a little bit different.
22! { dg-output "libgomp: cuStreamSynchronize error.*" { target openacc_nvidia_accel_selected } }
23! { dg-output "$" }
24! { dg-shouldfail "" }
25