mirror of
https://github.com/autc04/Retro68.git
synced 2024-10-05 04:55:29 +00:00
17 lines
302 B
Fortran
17 lines
302 B
Fortran
! Verify that a conditional "call abort" inside an OpenACC parallel region does
|
|
! the right thing.
|
|
|
|
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
|