2871   gfc_symbol *thunk_sym;  in build_entry_thunks()  local
2886       thunk_sym = el->sym;  in build_entry_thunks()
2888       build_function_decl (thunk_sym, global);  in build_entry_thunks()
2889       create_function_arglist (thunk_sym);  in build_entry_thunks()
2891       trans_function_start (thunk_sym);  in build_entry_thunks()
2893       thunk_fndecl = thunk_sym->backend_decl;  in build_entry_thunks()
2901       if (thunk_sym->attr.function)  in build_entry_thunks()
2921 	  for (thunk_formal = gfc_sym_get_dummy_args (thunk_sym);  in build_entry_thunks()
2979 		thunk_sym->result->name) == 0)  in build_entry_thunks()
3029       for (formal = gfc_sym_get_dummy_args (thunk_sym); formal;  in build_entry_thunks()
3038       if (thunk_sym->attr.function)  in build_entry_thunks()
3040 	  if (thunk_sym->ts.type == BT_CHARACTER)  in build_entry_thunks()
3041 	    thunk_sym->ts.u.cl->backend_decl = NULL_TREE;  in build_entry_thunks()
3042 	  if (thunk_sym->result->ts.type == BT_CHARACTER)  in build_entry_thunks()
3043 	    thunk_sym->result->ts.u.cl->backend_decl = NULL_TREE;  in build_entry_thunks()