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