blob: 70c05d7d3c1aa8309257b0bc09b19cf83132dee8 [file] [log] [blame]
! { 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 "" }