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

   1 ! { dg-do run }
   2 !
   3 ! Verify that a conditional "call abort" inside an OpenACC parallel region does
   4 ! the right thing.
   5
   6 program 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
  18 end program main