1program main
2  implicit none
3
4  integer :: argc
5  argc = command_argument_count ()
6
7  !$acc parallel copyin(argc)
8  if (argc .ne. 0) then
9     call abort
10  end if
11  !$acc end parallel
12
13end program main
14