1      INTEGER :: ARGC
2      ARGC = COMMAND_ARGUMENT_COUNT ()
3
4!$OMP PARALLEL
5!$ACC PARALLEL COPYIN(ARGC)
6      IF (ARGC .NE. 0) THEN
7         STOP 1
8      END IF
9!$ACC END PARALLEL
10!$OMP END PARALLEL
11
12      END
13