libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90

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