4176 init_intent_out_dt (gfc_symbol * proc_sym, gfc_wrapped_block * block)  in init_intent_out_dt()  argument
4184   for (f = gfc_sym_get_dummy_args (proc_sym); f; f = f->next)  in init_intent_out_dt()
4340 gfc_trans_deferred_vars (gfc_symbol * proc_sym, gfc_wrapped_block * block)  in gfc_trans_deferred_vars()  argument
4355   if (gfc_return_by_reference (proc_sym) && proc_sym->result == proc_sym)  in gfc_trans_deferred_vars()
4360 	  if (proc_sym->attr.entry_master)  in gfc_trans_deferred_vars()
4362 	      for (el = proc_sym->ns->entries; el; el = el->next)  in gfc_trans_deferred_vars()
4370 			 proc_sym->name, &proc_sym->declared_at);  in gfc_trans_deferred_vars()
4372       else if (proc_sym->as)  in gfc_trans_deferred_vars()
4376 	  gfc_set_backend_locus (&proc_sym->declared_at);  in gfc_trans_deferred_vars()
4377 	  gfc_trans_dummy_array_bias (proc_sym, result, block);  in gfc_trans_deferred_vars()
4380 	  if (proc_sym->ts.type == BT_CHARACTER  in gfc_trans_deferred_vars()
4381 	      && VAR_P (proc_sym->ts.u.cl->backend_decl))  in gfc_trans_deferred_vars()
4384 	      if (proc_sym->ts.deferred)  in gfc_trans_deferred_vars()
4387 		  tmp = gfc_null_and_pass_deferred_len (proc_sym, &init, &loc);  in gfc_trans_deferred_vars()
4391 		gfc_trans_dummy_character (proc_sym, proc_sym->ts.u.cl, block);  in gfc_trans_deferred_vars()
4394       else if (proc_sym->ts.type == BT_CHARACTER)  in gfc_trans_deferred_vars()
4396 	  if (proc_sym->ts.deferred)  in gfc_trans_deferred_vars()
4400 	      gfc_set_backend_locus (&proc_sym->declared_at);  in gfc_trans_deferred_vars()
4403 	      gfc_add_modify (&init, proc_sym->ts.u.cl->backend_decl,  in gfc_trans_deferred_vars()
4406 	      e = gfc_lval_expr_from_sym (proc_sym);  in gfc_trans_deferred_vars()
4418 	      tmp = proc_sym->ts.u.cl->backend_decl;  in gfc_trans_deferred_vars()
4420 		  && proc_sym->ts.u.cl->passed_length)  in gfc_trans_deferred_vars()
4422 		  tmp = proc_sym->ts.u.cl->passed_length;  in gfc_trans_deferred_vars()
4428 					  proc_sym->ts.u.cl->backend_decl));  in gfc_trans_deferred_vars()
4435 	  else if (VAR_P (proc_sym->ts.u.cl->backend_decl))  in gfc_trans_deferred_vars()
4436 	    gfc_trans_dummy_character (proc_sym, proc_sym->ts.u.cl, block);  in gfc_trans_deferred_vars()
4439 	gcc_assert (flag_f2c && proc_sym->ts.type == BT_COMPLEX);  in gfc_trans_deferred_vars()
4441   else if (proc_sym == proc_sym->result && IS_CLASS_ARRAY (proc_sym))  in gfc_trans_deferred_vars()
4445       tmp = get_proc_result (proc_sym);  in gfc_trans_deferred_vars()
4461   gfc_set_backend_locus (&proc_sym->declared_at);  in gfc_trans_deferred_vars()
4462   init_intent_out_dt (proc_sym, block);  in gfc_trans_deferred_vars()
4465   for (sym = proc_sym->tlink; sym != proc_sym; sym = sym->tlink)  in gfc_trans_deferred_vars()
4886   for (f = gfc_sym_get_dummy_args (proc_sym); f; f = f->next)  in gfc_trans_deferred_vars()
4896   if (gfc_return_by_reference (proc_sym) && proc_sym->ts.type == BT_CHARACTER  in gfc_trans_deferred_vars()
4899       gcc_assert (proc_sym->ts.u.cl->backend_decl != NULL);  in gfc_trans_deferred_vars()
4900       if (TREE_CODE (proc_sym->ts.u.cl->backend_decl) == PARM_DECL)  in gfc_trans_deferred_vars()
4901 	gfc_trans_vla_type_sizes (proc_sym, &tmpblock);  in gfc_trans_deferred_vars()