PR c++/86342 - -Wdeprecated-copy and system headers.

[official-gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / abort-1.f90

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