gcc/testsuite/gfortran.dg/gomp/assume-1.f90

   1 subroutine foo (i, a)
   2   implicit none
   3   integer, value :: i
   4   integer :: a(:)
   5   integer :: j
   6
   7   j = 7
   8   !$omp assume no_openmp, absent (target, teams) holds (i < 32) holds (i < 32_2)
   9   !$omp end assume
  10
  11   !$omp assume no_openmp_routines, contains (simd)
  12   block
  13     !$omp simd
  14     do j = 1, i
  15       a(i) = j
  16     end do
  17   end block
  18
  19   !$omp assume no_parallelism, contains (error)
  20   if (i >= 32) then
  21     !$omp error at (execution) message ("Should not happen")
  22   end if
  23   !$omp end assume
  24 end