! PR middle-end/83977 | |
! { dg-do compile } | |
integer function foo (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" "" { target aarch64*-*-* } } | |
integer :: a, b | |
!$omp declare simd uniform(b) linear(ref(a):b) | |
a = a + 1 | |
! This function can't be called from simd loops, | |
! because it violates declare simd restrictions. | |
! We shouldn't ICE on it though, nor attempt to generate | |
! simd clones for the *omp_fn* functions. | |
!$omp parallel | |
call sub | |
!$omp end parallel | |
end |