gcc/testsuite/gfortran.dg/gomp/pr83977.f90

   1 ! PR middle-end/83977
   2 ! { dg-do compile }
   3
   4 integer function foo (a, b)
   5    integer :: a, b
   6 !$omp declare simd uniform(b) linear(ref(a):b)
   7    a = a + 1
   8 ! This function can't be called from simd loops,
   9 ! because it violates declare simd restrictions.
  10 ! We shouldn't ICE on it though, nor attempt to generate
  11 ! simd clones for the *omp_fn* functions.
  12 !$omp parallel
  13    call sub
  14 !$omp end parallel
  15 end