[committed][RISC-V][PR target/114139] Verify we have a CONST_INT before extracting...

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

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