Home
last modified time | relevance | path

Searched refs:io_unit (Results 1 – 16 of 16) sorted by relevance

/netbsd/external/gpl3/gcc/dist/gcc/fortran/
H A Dio.c2963 if (dt->io_unit != NULL) in match_dt_unit()
2966 dt->io_unit = default_unit (k); in match_dt_unit()
2977 if (dt->io_unit != NULL) in match_dt_unit()
2983 dt->io_unit = e; in match_dt_unit()
3242 gfc_free_expr (dt->io_unit); in gfc_free_dt()
3309 e = dt->io_unit; in gfc_resolve_dt()
3344 dt->format_expr = dt->io_unit; in gfc_resolve_dt()
3791 expr = dt->io_unit; in check_io_constraints()
3815 &dt->io_unit->where); in check_io_constraints()
4201 dt->io_unit = default_unit (k); in match_io()
[all …]
H A Dio.cc2963 if (dt->io_unit != NULL) in match_dt_unit()
2966 dt->io_unit = default_unit (k); in match_dt_unit()
2977 if (dt->io_unit != NULL) in match_dt_unit()
2983 dt->io_unit = e; in match_dt_unit()
3242 gfc_free_expr (dt->io_unit); in gfc_free_dt()
3309 e = dt->io_unit; in gfc_resolve_dt()
3344 dt->format_expr = dt->io_unit; in gfc_resolve_dt()
3791 expr = dt->io_unit; in check_io_constraints()
3815 &dt->io_unit->where); in check_io_constraints()
4201 dt->io_unit = default_unit (k); in match_io()
[all …]
H A Dtrans-io.c1865 if (dt && dt->io_unit) in build_dt()
1867 if (dt->io_unit->ts.type == BT_CHARACTER) in build_dt()
1870 var, dt->io_unit); in build_dt()
1872 dt->io_unit->ts.kind == 1 ? in build_dt()
1991 if (dt->io_unit && dt->io_unit->ts.type == BT_INTEGER) in build_dt()
1993 IOPARM_common_unit, dt->io_unit); in build_dt()
H A Dtrans-io.cc1890 if (dt && dt->io_unit) in build_dt()
1892 if (dt->io_unit->ts.type == BT_CHARACTER) in build_dt()
1895 var, dt->io_unit); in build_dt()
1897 dt->io_unit->ts.kind == 1 ? in build_dt()
2016 if (dt->io_unit && dt->io_unit->ts.type == BT_INTEGER) in build_dt()
2018 IOPARM_common_unit, dt->io_unit); in build_dt()
H A Ddump-parse-tree.c2851 if (dt->io_unit) in show_code_node()
2854 show_expr (dt->io_unit); in show_code_node()
H A Ddump-parse-tree.cc3165 if (dt->io_unit) in show_code_node()
3168 show_expr (dt->io_unit); in show_code_node()
H A Dgfortran.h2827 gfc_expr *io_unit, *format_expr, *rec, *advance, *iostat, *size, *iomsg, member
H A DChangeLog-20091730 dt->io_unit is NULL. Return FAILURE after issuing error about
1732 (match_io_element): Don't segfault if current_dt->io_unit is NULL.
H A Dfrontend-passes.c5259 WALK_SUBEXPR (co->ext.dt->io_unit); in gfc_code_walker()
H A Dfrontend-passes.cc5539 WALK_SUBEXPR (co->ext.dt->io_unit); in gfc_code_walker()
H A DChangeLog-20082937 (gfc_resolve_dt): If an extra comma was encountered and io_unit is type
/netbsd/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dio.c2963 if (dt->io_unit != NULL) in match_dt_unit()
2966 dt->io_unit = default_unit (k); in match_dt_unit()
2977 if (dt->io_unit != NULL) in match_dt_unit()
2983 dt->io_unit = e; in match_dt_unit()
3242 gfc_free_expr (dt->io_unit); in gfc_free_dt()
3309 e = dt->io_unit; in gfc_resolve_dt()
3344 dt->format_expr = dt->io_unit; in gfc_resolve_dt()
3791 expr = dt->io_unit; in check_io_constraints()
3815 &dt->io_unit->where); in check_io_constraints()
4201 dt->io_unit = default_unit (k); in match_io()
[all …]
H A Dtrans-io.c1865 if (dt && dt->io_unit) in build_dt()
1867 if (dt->io_unit->ts.type == BT_CHARACTER) in build_dt()
1870 var, dt->io_unit); in build_dt()
1872 dt->io_unit->ts.kind == 1 ? in build_dt()
1991 if (dt->io_unit && dt->io_unit->ts.type == BT_INTEGER) in build_dt()
1993 IOPARM_common_unit, dt->io_unit); in build_dt()
H A Ddump-parse-tree.c2851 if (dt->io_unit) in show_code_node()
2854 show_expr (dt->io_unit); in show_code_node()
H A Dgfortran.h2538 gfc_expr *io_unit, *format_expr, *rec, *advance, *iostat, *size, *iomsg, member
H A Dfrontend-passes.c5259 WALK_SUBEXPR (co->ext.dt->io_unit); in gfc_code_walker()