! { dg-do run }
!
! Verify that an unconditional "call abort" inside an OpenACC parallel region
! does the right thing.

program main
  implicit none

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

end program main

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