80   gfc_expr *initializer;  member
1841   new_enum_history->initializer = init;  in create_enum_history()
1854       if (mpz_cmp (max_enum->initializer->value.integer,  in create_enum_history()
1855 		   new_enum_history->initializer->value.integer) < 0)  in create_enum_history()
2276   c->initializer = *init;  in build_struct()
2289   gfc_apply_init (&c->ts, &c->attr, c->initializer);  in build_struct()
2342       if (c->initializer)  in build_struct()
2343 	sym->value = gfc_copy_expr (c->initializer);  in build_struct()
2497   gfc_expr *initializer, *char_len;  in variable_decl()  local
2508   initializer = NULL;  in variable_decl()
2886           m = match_clist_expr (&initializer, &current_ts, as);  in variable_decl()
2913 	  m = match_pointer_init (&initializer, 0);  in variable_decl()
2920 	  if (initializer->expr_type == EXPR_VARIABLE  in variable_decl()
2921 	      && initializer->symtree->n.sym->attr.save == SAVE_NONE  in variable_decl()
2925 	    initializer->symtree->n.sym->attr.save = SAVE_IMPLICIT;  in variable_decl()
2937 	  m = gfc_match_init_expr (&initializer);  in variable_decl()
2961   if (initializer != NULL && current_attr.allocatable  in variable_decl()
2971       && initializer && initializer->ts.type == BT_HOLLERITH)  in variable_decl()
2974 		 "constant at %L is not allowed", &initializer->where);  in variable_decl()
3008       else if (param && initializer)  in variable_decl()
3010 	  if (initializer->ts.type == BT_BOZ)  in variable_decl()
3013 			 "initializer", &initializer->where);  in variable_decl()
3017 	  param->value = gfc_copy_expr (initializer);  in variable_decl()
3024   if (current_ts.type == BT_DERIVED && initializer  in variable_decl()
3025       && (gfc_numeric_ts (&initializer->ts)  in variable_decl()
3026 	  || initializer->ts.type == BT_LOGICAL  in variable_decl()
3027 	  || initializer->ts.type == BT_CHARACTER))  in variable_decl()
3031 		  gfc_typename (initializer));  in variable_decl()
3041     t = add_init_expr_to_sym (name, &initializer, &var_locus);  in variable_decl()
3045 	  && !current_attr.pointer && !initializer)  in variable_decl()
3046 	initializer = gfc_default_initializer (&current_ts);  in variable_decl()
3047       t = build_struct (name, cl, &initializer, &as);  in variable_decl()
3061   gfc_free_expr (initializer);  in variable_decl()
3752 	  if (!actual_param && !(c1 && c1->initializer))  in gfc_get_pdt_instance()
3758 	  else if (!actual_param && c1 && c1->initializer)  in gfc_get_pdt_instance()
3759 	    kind_expr = gfc_copy_expr (c1->initializer);  in gfc_get_pdt_instance()
3774 	      if (c1->initializer)  in gfc_get_pdt_instance()
3775 		kind_expr = gfc_copy_expr (c1->initializer);  in gfc_get_pdt_instance()
3996 	    c2->initializer = gfc_copy_expr (tail->expr);  in gfc_get_pdt_instance()
4005 	  if (!c2->initializer && c1->initializer)  in gfc_get_pdt_instance()
4006 	    c2->initializer = gfc_copy_expr (c1->initializer);  in gfc_get_pdt_instance()
4049 	  if (c1->initializer)  in gfc_get_pdt_instance()
4051 	      c2->initializer = gfc_copy_expr (c1->initializer);  in gfc_get_pdt_instance()
4052 	      gfc_insert_kind_parameter_exprs (c2->initializer);  in gfc_get_pdt_instance()
4053 	      gfc_simplify_expr (c2->initializer, 1);  in gfc_get_pdt_instance()
4079 	    c2->initializer = gfc_default_initializer (&c2->ts);  in gfc_get_pdt_instance()
6985   gfc_expr *initializer = NULL;  in match_procedure_decl()  local
7088 	  m = match_pointer_init (&initializer, 1);  in match_procedure_decl()
7092 	  if (!add_init_expr_to_sym (sym->name, &initializer, &gfc_current_locus))  in match_procedure_decl()
7109   gfc_free_expr (initializer);  in match_procedure_decl()
7128   gfc_expr *initializer = NULL;  in match_ppc_decl()  local
7220 	  m = match_pointer_init (&initializer, 1);  in match_ppc_decl()
7223 	      gfc_free_expr (initializer);  in match_ppc_decl()
7226 	  c->initializer = initializer;  in match_ppc_decl()
8229 	 && gfc_check_integer_range (max_enum->initializer->value.integer,  in set_enum_kind()
10630       p->initializer = gfc_default_initializer (&p->ts);  in gfc_match_derived_decl()
10773   gfc_expr *initializer;  in enumerator_decl()  local
10781   initializer = NULL;  in enumerator_decl()
10808 	  m = gfc_match_init_expr (&initializer);  in enumerator_decl()
10823   if (initializer == NULL)  in enumerator_decl()
10824     initializer = enum_initializer (last_initializer, old_locus);  in enumerator_decl()
10826   if (initializer == NULL || initializer->ts.type != BT_INTEGER)  in enumerator_decl()
10837   last_initializer = initializer;  in enumerator_decl()
10838   t = add_init_expr_to_sym (name, &initializer, &var_locus);  in enumerator_decl()
10848   gfc_free_expr (initializer);  in enumerator_decl()