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