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
