1program main
2  implicit none
3
4  print *, "CheCKpOInT"
5  !$acc parallel
6  call abort
7  !$acc end parallel
8
9end program main
10
11! { dg-output "CheCKpOInT" }
12! { dg-shouldfail "" }
13