1! { dg-do run } 2! 3! Verify that an unconditional "call abort" inside an OpenACC parallel region 4! does the right thing. 5 6program main 7 implicit none 8 9 print *, "CheCKpOInT" 10 !$acc parallel 11 call abort 12 !$acc end parallel 13 14end program main 15 16! { dg-output "CheCKpOInT" } 17! { dg-shouldfail "" } 18