53 static gfc_typespec current_ts;  variable
1688   if (current_ts.type != BT_UNKNOWN  in build_sym()
1690 	  || !gfc_compare_types (&sym->ts, &current_ts))  in build_sym()
1691       && !gfc_add_type (sym, &current_ts, var_locus))  in build_sym()
2197   if ((current_ts.type == BT_DERIVED || current_ts.type == BT_CLASS)  in build_struct()
2198       && current_ts.u.derived == gfc_current_block ()  in build_struct()
2215   if (current_ts.type == BT_CLASS  in build_struct()
2265   c->ts = current_ts;  in build_struct()
2719   if (current_ts.type == BT_CHARACTER)  in variable_decl()
2733 	      && (current_ts.u.cl->length == NULL  in variable_decl()
2734 		  || current_ts.u.cl->length->expr_type != EXPR_CONSTANT))  in variable_decl()
2737 	      cl->length = gfc_copy_expr (current_ts.u.cl->length);  in variable_decl()
2740 	    cl = current_ts.u.cl;  in variable_decl()
2742 	  cl_deferred = current_ts.deferred;  in variable_decl()
2785 	  if (!gfc_add_type (sym, &current_ts, &gfc_current_locus))  in variable_decl()
2886           m = match_clist_expr (&initializer, &current_ts, as);  in variable_decl()
3024   if (current_ts.type == BT_DERIVED && initializer  in variable_decl()
3044       if (current_ts.type == BT_DERIVED  in variable_decl()
3046 	initializer = gfc_default_initializer (&current_ts);  in variable_decl()
5524 	      if (current_ts.type != BT_INTEGER)  in match_attr_spec()
5531 	      if (current_ts.kind != gfc_default_integer_kind)  in match_attr_spec()
5551 	      if (current_ts.type != BT_INTEGER)  in match_attr_spec()
5558 	      if (current_ts.kind != gfc_default_integer_kind)  in match_attr_spec()
6124   ts = &current_ts;  in gfc_match_bind_c_stmt()
6170   m = gfc_match_decl_type_spec (&current_ts, 0);  in gfc_match_data_decl()
6174   if ((current_ts.type == BT_DERIVED || current_ts.type == BT_CLASS)  in gfc_match_data_decl()
6177       sym = gfc_use_derived (current_ts.u.derived);  in gfc_match_data_decl()
6185       current_ts.u.derived = sym;  in gfc_match_data_decl()
6196   if (current_ts.type == BT_CLASS && current_attr.flavor == FL_PARAMETER)  in gfc_match_data_decl()
6203   if (current_ts.type == BT_CLASS  in gfc_match_data_decl()
6204 	&& current_ts.u.derived->attr.unlimited_polymorphic)  in gfc_match_data_decl()
6207   if ((current_ts.type == BT_DERIVED || current_ts.type == BT_CLASS)  in gfc_match_data_decl()
6208       && current_ts.u.derived->components == NULL  in gfc_match_data_decl()
6209       && !current_ts.u.derived->attr.zero_comp)  in gfc_match_data_decl()
6218       gfc_find_symbol (current_ts.u.derived->name,  in gfc_match_data_decl()
6219 		       current_ts.u.derived->ns, 1, &sym);  in gfc_match_data_decl()
6225 	  && (current_ts.u.derived->components != NULL  in gfc_match_data_decl()
6226 	      || current_ts.u.derived->attr.zero_comp  in gfc_match_data_decl()
6227 	      || current_ts.u.derived == gfc_new_block))  in gfc_match_data_decl()
6240   if (m == MATCH_NO && current_ts.type == BT_CHARACTER && old_char_selector)  in gfc_match_data_decl()
6269       if (current_ts.type == BT_DERIVED && current_ts.u.derived  in gfc_match_data_decl()
6270 	  && gfc_fl_struct (current_ts.u.derived->attr.flavor))  in gfc_match_data_decl()
6911   gfc_clear_ts (&current_ts);  in match_procedure_interface()
6921   m = gfc_match_decl_type_spec (&current_ts, 0);  in match_procedure_interface()
7067       else if (current_ts.type != BT_UNKNOWN)  in match_procedure_decl()
7069 	  if (!gfc_add_type (sym, &current_ts, &gfc_current_locus))  in match_procedure_decl()
7072 	  sym->ts.interface->ts = current_ts;  in match_procedure_decl()
7168   ts = current_ts;  in match_ppc_decl()
7374   gfc_clear_ts (&current_ts);  in gfc_match_function_decl()
7378   m = gfc_match_prefix (&current_ts);  in gfc_match_function_decl()
7494       if (current_ts.type != BT_UNKNOWN)  in gfc_match_function_decl()
7495 	current_ts.kind = -1;  in gfc_match_function_decl()
7497 	current_ts.kind = 0;  in gfc_match_function_decl()
7501           if (current_ts.type != BT_UNKNOWN  in gfc_match_function_decl()
7502 	      && !gfc_add_type (sym, &current_ts, &gfc_current_locus))  in gfc_match_function_decl()
7508           if (current_ts.type != BT_UNKNOWN  in gfc_match_function_decl()
7509 	      && !gfc_add_type (result, &current_ts, &gfc_current_locus))  in gfc_match_function_decl()
8794       current_ts.type = BT_INTEGER;  in cray_pointer_decl()
8795       current_ts.kind = gfc_index_integer_kind;  in cray_pointer_decl()
8834       current_ts.type = BT_UNKNOWN;  in cray_pointer_decl()
8835       current_ts.kind = 0;  in cray_pointer_decl()
10862   gfc_clear_ts (&current_ts);  in gfc_match_enumerator_def()
10881   (&current_ts)->type = BT_INTEGER;  in gfc_match_enumerator_def()
10882   (&current_ts)->kind = gfc_c_int_kind;  in gfc_match_enumerator_def()