Home
last modified time | relevance | path

Searched refs:newunit (Results 1 – 19 of 19) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dioparm.def53 IOPARM (open, newunit, 1 << 23, pint4)
H A Dio.c1955 m = match_out_tag (&tag_newunit, &open->newunit); in match_open_element()
2007 gfc_free_expr (open->newunit); in gfc_free_open()
2049 RESOLVE_TAG (&tag_newunit, open->newunit); in gfc_resolve_open()
2459 if (open->newunit) in check_open_constraints()
2464 &open->newunit->where); in check_open_constraints()
2475 "or STATUS='scratch' at %L", &open->newunit->where); in check_open_constraints()
H A Dtrans-io.c1127 if (p->newunit) in gfc_trans_open()
1129 p->newunit); in gfc_trans_open()
H A Dgfortran.h2489 *decimal, *encoding, *round, *sign, *asynchronous, *id, *newunit, member
H A Dfrontend-passes.c5190 WALK_SUBEXPR (co->ext.open->newunit); in gfc_code_walker()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dioparm.def53 IOPARM (open, newunit, 1 << 23, pint4)
H A Dio.cc1955 m = match_out_tag (&tag_newunit, &open->newunit); in match_open_element()
2007 gfc_free_expr (open->newunit); in gfc_free_open()
2049 RESOLVE_TAG (&tag_newunit, open->newunit); in gfc_resolve_open()
2459 if (open->newunit) in check_open_constraints()
2464 &open->newunit->where); in check_open_constraints()
2475 "or STATUS='scratch' at %L", &open->newunit->where); in check_open_constraints()
H A DChangeLog-20092260 * gfortran.h (gfc_open): Add newunit expression to structure.
2262 (match_open_element): Add matching for newunit.
2263 (gfc_free_open): Free the newunit expression.
2264 (gfc_resolve_open): Add newunit to resolution and check constraints.
2270 newunit parameter.
2271 * ioparm.def (IOPARM): Define the newunit parameter as a pointer
H A Dtrans-io.cc1153 if (p->newunit) in gfc_trans_open()
1155 p->newunit); in gfc_trans_open()
H A Dgfortran.h2778 *decimal, *encoding, *round, *sign, *asynchronous, *id, *newunit, member
H A Dfrontend-passes.cc5470 WALK_SUBEXPR (co->ext.open->newunit); in gfc_code_walker()
/netbsd-src/external/gpl3/gcc/dist/libgfortran/io/
H A Dio.h347 GFC_INTEGER_4 *newunit; member
H A Dopen.c931 *opp->newunit = opp->common.unit; in st_open()
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/io/
H A Dio.h343 GFC_INTEGER_4 *newunit; member
H A Dopen.c902 *opp->newunit = opp->common.unit; in st_open()
/netbsd-src/external/gpl3/gcc/dist/libgfortran/
H A DChangeLog-2019377 * io/open.c (newunit): Free format buffer if the unit specified is for
H A DChangeLog-20161265 as a stack to save newunit unit numbers and unit structure for reuse.
1273 Push the common.unit number onto the newunit stack, saving it
1278 (init_units): Initialize the newunit stack.
H A DChangeLog-201213 * io/open.c (st_parameter_open): Assign newunit number to user
H A DChangeLog-20091419 * io/io.h (st_parameter_open): Add pointer to newunit. Add prototype for
1422 * io/unit.c: Declare next_available_newunit. Define the first newunit