Home | History | Annotate | Download | only in fortran

Lines Matching defs:prog_unit

1189 	gfc_namespace *prog_unit = gfc_current_ns;
1190 	while (prog_unit->parent)
1195 	    prog_unit = prog_unit->parent;
1197 	  prog_unit->omp_target_seen = true;
3749   gfc_symbol *prog_unit, *sym;
3843   prog_unit = gfc_new_block;
3844   prog_unit->formal_ns = gfc_current_ns;
3845   if (prog_unit == prog_unit->formal_ns->proc_name
3846       && prog_unit->ns != prog_unit->formal_ns)
3847     prog_unit->refs++;
3859 	if (prog_unit->result == prog_unit
3860 	      && prog_unit->ts.type == BT_UNKNOWN)
3861 	  gfc_set_default_type (prog_unit, 1, prog_unit->formal_ns);
3862 	else if (prog_unit->result != prog_unit
3863 		   && prog_unit->result->ts.type == BT_UNKNOWN)
3864 	  gfc_set_default_type (prog_unit->result, 1,
3865 				prog_unit->formal_ns);
3877   if (current_interface.type != INTERFACE_ABSTRACT && !prog_unit->attr.dummy)
3878     gfc_add_external (&prog_unit->attr, &gfc_current_locus);
3881   gfc_add_interface (prog_unit);
3887 		   prog_unit->name) == 0)
3889 	       "enclosing procedure", prog_unit->name,