3499   gfc_symbol *prog_unit, *sym;  in parse_interface()  local
3593   prog_unit = gfc_new_block;  in parse_interface()
3594   prog_unit->formal_ns = gfc_current_ns;  in parse_interface()
3595   if (prog_unit == prog_unit->formal_ns->proc_name  in parse_interface()
3596       && prog_unit->ns != prog_unit->formal_ns)  in parse_interface()
3597     prog_unit->refs++;  in parse_interface()
3609 	if (prog_unit->result == prog_unit  in parse_interface()
3610 	      && prog_unit->ts.type == BT_UNKNOWN)  in parse_interface()
3611 	  gfc_set_default_type (prog_unit, 1, prog_unit->formal_ns);  in parse_interface()
3612 	else if (prog_unit->result != prog_unit  in parse_interface()
3613 		   && prog_unit->result->ts.type == BT_UNKNOWN)  in parse_interface()
3614 	  gfc_set_default_type (prog_unit->result, 1,  in parse_interface()
3615 				prog_unit->formal_ns);  in parse_interface()
3627   if (current_interface.type != INTERFACE_ABSTRACT && !prog_unit->attr.dummy)  in parse_interface()
3628     gfc_add_external (&prog_unit->attr, &gfc_current_locus);  in parse_interface()
3631   gfc_add_interface (prog_unit);  in parse_interface()
3637 		   prog_unit->name) == 0)  in parse_interface()
3639 	       "enclosing procedure", prog_unit->name,  in parse_interface()