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