Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90

program main
  implicit none

  print *, "CheCKpOInT"
  !$acc parallel
  call abort
  !$acc end parallel

end program main

! { dg-output "CheCKpOInT" }
! { dg-shouldfail "" }