1! PR middle-end/83977
2! { dg-do compile }
3
4integer function foo (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" "" { target aarch64*-*-* } }
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