mirror of
https://github.com/autc04/Retro68.git
synced 2025-02-20 02:29:11 +00:00
14 lines
202 B
Fortran
14 lines
202 B
Fortran
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
|