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