| ! { 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 |