1! { dg-additional-options "-fcoarray=lib" } 2! 3! PR fortran/93660 4! 5! Failed as TREE_TYPE(fndecl) did not include the 6! hidden caf_token/caf_offset arguments. 7! 8integer function f(x) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" "" { target aarch64*-*-* } } 9 integer :: x[*] 10 !$omp declare simd 11 f = x[1] 12end 13