2272     c->kind_expr = gfc_copy_expr (saved_kind_expr);  in build_struct()
3162     goto kind_expr;  in gfc_match_kind_spec()
3173 kind_expr:  in gfc_match_kind_spec()
3706   gfc_expr *kind_expr;  in gfc_get_pdt_instance()  local
3749       kind_expr = NULL;  in gfc_get_pdt_instance()
3759 	    kind_expr = gfc_copy_expr (c1->initializer);  in gfc_get_pdt_instance()
3761 	    kind_expr = gfc_copy_expr (actual_param->expr);  in gfc_get_pdt_instance()
3771 	    kind_expr = gfc_copy_expr (actual_param->expr);  in gfc_get_pdt_instance()
3775 		kind_expr = gfc_copy_expr (c1->initializer);  in gfc_get_pdt_instance()
3800       if (kind_expr)  in gfc_get_pdt_instance()
3803 	  gfc_resolve_expr (kind_expr);  in gfc_get_pdt_instance()
3804 	  gfc_simplify_expr (kind_expr, 1);  in gfc_get_pdt_instance()
3807 	  if (kind_expr->ts.type != BT_INTEGER  in gfc_get_pdt_instance()
3808 	      && kind_expr->ts.type != BT_PROCEDURE)  in gfc_get_pdt_instance()
3812 			 gfc_basic_typename (kind_expr->ts.type));  in gfc_get_pdt_instance()
3816 	  tail->expr = gfc_copy_expr (kind_expr);  in gfc_get_pdt_instance()
3826 	  if (kind_expr)  in gfc_get_pdt_instance()
3828 	      gfc_free_expr (kind_expr);  in gfc_get_pdt_instance()
3829 	      kind_expr = NULL;  in gfc_get_pdt_instance()
3843       if (!kind_expr || !gfc_is_constant_expr (kind_expr))  in gfc_get_pdt_instance()
3850       gfc_extract_int (kind_expr, &kind_value);  in gfc_get_pdt_instance()
3855       gfc_free_expr (kind_expr);  in gfc_get_pdt_instance()
3961 	   && c1->kind_expr != NULL)  in gfc_get_pdt_instance()
3963 	  gfc_expr *e = gfc_copy_expr (c1->kind_expr);  in gfc_get_pdt_instance()