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