! { dg-do run }
!
! Verify that a conditional "call abort" inside an OpenACC parallel region does
! the right thing.

program main
  implicit none

  integer :: argc
  argc = command_argument_count ()

  !$acc parallel copyin(argc)
  if (argc .ne. 0) then
     call abort
  end if
  !$acc end parallel

end program main