Home | History | Annotate | Download | only in fortran

Lines Matching refs:current_ts

53 static gfc_typespec current_ts;
1770   if (current_ts.type != BT_UNKNOWN
1772 	  || !gfc_compare_types (&sym->ts, &current_ts))
1773       && !gfc_add_type (sym, &current_ts, var_locus))
1799      current_ts is holding the binding label, or nothing if the
2290   if ((current_ts.type == BT_DERIVED || current_ts.type == BT_CLASS)
2291       && current_ts.u.derived == gfc_current_block ()
2308   if (current_ts.type == BT_CLASS
2358   c->ts = current_ts;
2820   if (current_ts.type == BT_CHARACTER)
2834 	      && (current_ts.u.cl->length == NULL
2835 		  || current_ts.u.cl->length->expr_type != EXPR_CONSTANT))
2838 	      cl->length = gfc_copy_expr (current_ts.u.cl->length);
2841 	    cl = current_ts.u.cl;
2843 	  cl_deferred = current_ts.deferred;
2886 	  if (!gfc_add_type (sym, &current_ts, &gfc_current_locus))
2987           m = match_clist_expr (&initializer, &current_ts, as);
3125   if (current_ts.type == BT_DERIVED && initializer
3145       if (current_ts.type == BT_DERIVED
3147 	initializer = gfc_default_initializer (&current_ts);
5632 	      if (current_ts.type != BT_INTEGER)
5651 	      if (current_ts.type != BT_INTEGER)
5986      the given ts (current_ts), so look in both.  */
6216   ts = &current_ts;
6262   m = gfc_match_decl_type_spec (&current_ts, 0);
6266   if ((current_ts.type == BT_DERIVED || current_ts.type == BT_CLASS)
6269       sym = gfc_use_derived (current_ts.u.derived);
6277       current_ts.u.derived = sym;
6288   if (current_ts.type == BT_CLASS && current_attr.flavor == FL_PARAMETER)
6295   if (current_ts.type == BT_CLASS
6296 	&& current_ts.u.derived->attr.unlimited_polymorphic)
6299   if ((current_ts.type == BT_DERIVED || current_ts.type == BT_CLASS)
6300       && current_ts.u.derived->components == NULL
6301       && !current_ts.u.derived->attr.zero_comp)
6310       gfc_find_symbol (current_ts.u.derived->name,
6311 		       current_ts.u.derived->ns, 1, &sym);
6317 	  && (current_ts.u.derived->components != NULL
6318 	      || current_ts.u.derived->attr.zero_comp
6319 	      || current_ts.u.derived == gfc_new_block))
6332   if (m == MATCH_NO && current_ts.type == BT_CHARACTER && old_char_selector)
6361       if (current_ts.type == BT_DERIVED && current_ts.u.derived
6362 	  && gfc_fl_struct (current_ts.u.derived->attr.flavor))
7003   gfc_clear_ts (&current_ts);
7013   m = gfc_match_decl_type_spec (&current_ts, 0);
7159       else if (current_ts.type != BT_UNKNOWN)
7161 	  if (!gfc_add_type (sym, &current_ts, &gfc_current_locus))
7164 	  sym->ts.interface->ts = current_ts;
7260   ts = current_ts;
7466   gfc_clear_ts (&current_ts);
7470   m = gfc_match_prefix (&current_ts);
7586       if (current_ts.type != BT_UNKNOWN)
7587 	current_ts.kind = -1;
7589 	current_ts.kind = 0;
7593           if (current_ts.type != BT_UNKNOWN
7594 	      && !gfc_add_type (sym, &current_ts, &gfc_current_locus))
7600           if (current_ts.type != BT_UNKNOWN
7601 	      && !gfc_add_type (result, &current_ts, &gfc_current_locus))
8162    NULL), or in the current_ts.  The symbol may be NULL because we may
8168    current_ts. If allow_binding_name is false, no binding name may be
8885       current_ts.type = BT_INTEGER;
8886       current_ts.kind = gfc_index_integer_kind;
8925       current_ts.type = BT_UNKNOWN;
8926       current_ts.kind = 0;
10955   gfc_clear_ts (&current_ts);
10974   (&current_ts)->type = BT_INTEGER;
10975   (&current_ts)->kind = gfc_c_int_kind;