Searched refs:kind_expr (Results 1 – 12 of 12) sorted by relevance
2362 c->kind_expr = gfc_copy_expr (saved_kind_expr); in build_struct()3259 goto kind_expr; in gfc_match_kind_spec()3270 kind_expr: in gfc_match_kind_spec()3804 gfc_expr *kind_expr; in gfc_get_pdt_instance() local3847 kind_expr = NULL; in gfc_get_pdt_instance()3857 kind_expr = gfc_copy_expr (c1->initializer); in gfc_get_pdt_instance()3859 kind_expr = gfc_copy_expr (actual_param->expr); in gfc_get_pdt_instance()3869 kind_expr = gfc_copy_expr (actual_param->expr); in gfc_get_pdt_instance()3873 kind_expr = gfc_copy_expr (c1->initializer); in gfc_get_pdt_instance()3898 if (kind_expr) in gfc_get_pdt_instance()[all …]
215 kind_expr whatever is the set value.1157 'kind_expr'. Check that KIND or LEN components appear in the1196 to the structure symbol_attr. Add the 'kind_expr' and1223 (mio_component): Deal with 'kind_expr' field.1241 (free_components): Free 'kind_expr' and 'param_list' fields.
949 if (c->kind_expr) in show_components()952 show_expr (c->kind_expr); in show_components()
2614 if (p->kind_expr) in free_components()2615 gfc_free_expr (p->kind_expr); in free_components()
1176 struct gfc_expr *kind_expr; member
3075 mio_expr (&c->kind_expr); in mio_component()
2552 * decl.c (gfc_match_old_kind_spec,kind_expr): Type conversions
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() local3749 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()[all …]
922 if (c->kind_expr) in show_components()925 show_expr (c->kind_expr); in show_components()
2607 if (p->kind_expr) in free_components()2608 gfc_free_expr (p->kind_expr); in free_components()
1101 struct gfc_expr *kind_expr; member
2924 mio_expr (&c->kind_expr); in mio_component()