Searched refs:saved_kind_expr (Results 1 – 3 of 3) sorted by relevance
112 static gfc_expr *saved_kind_expr = NULL; variable2271 && saved_kind_expr != NULL) in build_struct()2272 c->kind_expr = gfc_copy_expr (saved_kind_expr); in build_struct()3157 saved_kind_expr = NULL; in gfc_match_kind_spec()3180 saved_kind_expr = gfc_copy_expr (e); in gfc_match_kind_spec()3354 saved_kind_expr = e; in match_char_kind()6289 if (saved_kind_expr) in gfc_match_data_decl()6290 gfc_free_expr (saved_kind_expr); in gfc_match_data_decl()6295 saved_kind_expr = NULL; in gfc_match_data_decl()
112 static gfc_expr *saved_kind_expr = NULL; variable2361 && saved_kind_expr != NULL) in build_struct()2362 c->kind_expr = gfc_copy_expr (saved_kind_expr); in build_struct()3254 saved_kind_expr = NULL; in gfc_match_kind_spec()3277 saved_kind_expr = gfc_copy_expr (e); in gfc_match_kind_spec()3450 saved_kind_expr = e; in match_char_kind()6378 if (saved_kind_expr) in gfc_match_data_decl()6379 gfc_free_expr (saved_kind_expr); in gfc_match_data_decl()6384 saved_kind_expr = NULL; in gfc_match_data_decl()
1058 parameterized, save it in saved_kind_expr and set kind = 0.1156 (build_struct): Copy the 'saved_kind_expr' to the component1162 set KIND to zero and store the expression in 'saved_kind_expr'.