blob: 974f27022603b0505417b8a4beae25a495851263 [file] [log] [blame]
INTEGER :: ARGC
ARGC = COMMAND_ARGUMENT_COUNT ()
!$OMP PARALLEL
!$ACC PARALLEL COPYIN(ARGC)
IF (ARGC .NE. 0) THEN
STOP 1
END IF
!$ACC END PARALLEL
!$OMP END PARALLEL
END