1! { dg-do compile } 2! Tests the fix for PR25416, which ICED in gfc_conv_function_call, when 3! treating SPREAD in the statement below. 4! 5! Contributed by Ulrich Weigand <uweigand@gcc.gnu.org> 6function bug(self,strvec) result(res) 7 character(*) :: self 8 character(*), dimension(:), intent(in) :: strvec 9 logical(kind=kind(.true.)) :: res 10 11 res = any(index(strvec,spread(self,1,size(strvec))) /= 0) 12end function 13 14