libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90

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