! { dg-do run } ! ! 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
