1! { dg-do run } 2! 3! Verify that a conditional "call abort" inside an OpenACC parallel region does 4! the right thing. 5 6program main 7 implicit none 8 9 integer :: argc 10 argc = command_argument_count () 11 12 !$acc parallel copyin(argc) 13 if (argc .ne. 0) then 14 call abort 15 end if 16 !$acc end parallel 17 18end program main 19