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