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