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