! 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 "" }