1! PR middle-end/83977 2! { dg-do compile } 3 4integer 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 15end 16