HomeSort by: relevance | last modified time | path
    Searched refs:recl (Results 1 - 22 of 22) sorted by relevancy

  /src/external/gpl3/gcc/dist/libgfortran/io/
unit.c 494 iunit->recl = dtp->internal_unit_len;
512 iunit->recl = iunit->internal_unit_len;
525 start_record *= iunit->recl;
536 iunit->bytes_left = iunit->recl;
639 /* Why this weird value? Because if the recl specifier in the
640 inquire statement is a 4 byte value, u->recl is truncated,
674 u->recl = default_recl;
705 u->recl = default_recl;
735 u->recl = default_recl;
open.c 227 && opp->recl_in != u->recl)
229 "Cannot change RECL parameter in OPEN statement");
496 "Missing RECL parameter in OPEN statement");
503 "RECL parameter is non-positive in OPEN statement");
609 /* Unspecified recl ends up with a processor dependent value. */
614 u->recl = opp->recl_in;
615 u->recl_subrecord = u->recl;
616 u->bytes_left = u->recl;
621 u->recl = default_recl;
652 u->maxrec = max_offset / u->recl;
    [all...]
transfer.c 463 == dtp->u.p.current_unit->recl)
510 && dtp->u.p.current_unit->recl == default_recl)
511 dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
816 && dtp->u.p.current_unit->recl == default_recl))
817 dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
1619 bytes_used = (int)(dtp->u.p.current_unit->recl
2014 pos = (int)(dtp->u.p.current_unit->recl - dtp->u.p.current_unit->bytes_left);
2098 tmp = dtp->u.p.current_unit->recl
2118 bytes_used = dtp->u.p.current_unit->recl
2511 pos = dtp->u.p.current_unit->recl - dtp->u.p.current_unit->bytes_left
    [all...]
write.c 2108 record = record * dtp->u.p.current_unit->recl;
2116 dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
inquire.c 225 /* F2018 (N2137) 12.10.2.26: If there is no connection, recl is
227 *iqp->recl_out = (u != NULL) ? u->recl : -1;
727 /* F2018 (N2137) 12.10.2.26: If there is no connection, recl is
io.h 669 /* recl -- Record length of the file.
676 gfc_offset recl, last_record, maxrec, bytes_left, strm_pos, member in struct:gfc_unit
762 /* Default RECL for sequential access if not given in OPEN statement,
list_read.c 254 record *= dtp->u.p.current_unit->recl;
258 dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
  /src/external/gpl3/gcc.old/dist/libgfortran/io/
unit.c 459 iunit->recl = dtp->internal_unit_len;
477 iunit->recl = iunit->internal_unit_len;
490 start_record *= iunit->recl;
501 iunit->bytes_left = iunit->recl;
603 /* Why this weird value? Because if the recl specifier in the
604 inquire statement is a 4 byte value, u->recl is truncated,
638 u->recl = default_recl;
669 u->recl = default_recl;
699 u->recl = default_recl;
open.c 227 && opp->recl_in != u->recl)
229 "Cannot change RECL parameter in OPEN statement");
496 "Missing RECL parameter in OPEN statement");
503 "RECL parameter is non-positive in OPEN statement");
609 /* Unspecified recl ends up with a processor dependent value. */
614 u->recl = opp->recl_in;
615 u->recl_subrecord = u->recl;
616 u->bytes_left = u->recl;
621 u->recl = default_recl;
652 u->maxrec = max_offset / u->recl;
    [all...]
transfer.c 463 == dtp->u.p.current_unit->recl)
510 && dtp->u.p.current_unit->recl == default_recl)
511 dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
816 && dtp->u.p.current_unit->recl == default_recl))
817 dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
1592 bytes_used = (int)(dtp->u.p.current_unit->recl
1974 pos = (int)(dtp->u.p.current_unit->recl - dtp->u.p.current_unit->bytes_left);
2058 tmp = dtp->u.p.current_unit->recl
2075 bytes_used = dtp->u.p.current_unit->recl
2455 pos = dtp->u.p.current_unit->recl - dtp->u.p.current_unit->bytes_left
    [all...]
write.c 2084 record = record * dtp->u.p.current_unit->recl;
2092 dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
inquire.c 225 /* F2018 (N2137) 12.10.2.26: If there is no connection, recl is
227 *iqp->recl_out = (u != NULL) ? u->recl : -1;
727 /* F2018 (N2137) 12.10.2.26: If there is no connection, recl is
io.h 670 /* recl -- Record length of the file.
677 gfc_offset recl, last_record, maxrec, bytes_left, strm_pos, member in struct:gfc_unit
763 /* Default RECL for sequential access if not given in OPEN statement,
list_read.c 258 record *= dtp->u.p.current_unit->recl;
262 dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
  /src/external/gpl3/gcc/dist/gcc/fortran/
io.cc 55 tag_e_recl = {"RECL", " recl =", " %e", BT_INTEGER},
85 tag_s_recl = {"RECL", " recl =", " %v", BT_INTEGER},
1919 m = match_etag (&tag_e_recl, &open->recl);
1995 gfc_free_expr (open->recl);
2028 RESOLVE_TAG (&tag_e_recl, open->recl);
2402 /* Checks on the RECL specifier. */
2403 if (open->recl && open->recl->expr_type == EXPR_CONSTAN
    [all...]
trans-io.cc 1110 if (p->recl)
1112 p->recl);
1410 if (p->recl)
1412 IOPARM_inquire_recl_out, p->recl);
gfortran.h 2882 gfc_expr *unit, *file, *status, *access, *form, *recl, member in struct:__anon114
2912 *unformatted, *recl, *nextrec, *blank, *position, *action, *read, member in struct:__anon117
frontend-passes.cc 2446 CHECK_INQ(recl);
5537 WALK_SUBEXPR (co->ext.open->recl);
5589 WALK_SUBEXPR (co->ext.inquire->recl);
  /src/external/gpl3/gcc.old/dist/gcc/fortran/
io.cc 55 tag_e_recl = {"RECL", " recl =", " %e", BT_INTEGER},
85 tag_s_recl = {"RECL", " recl =", " %v", BT_INTEGER},
1919 m = match_etag (&tag_e_recl, &open->recl);
1995 gfc_free_expr (open->recl);
2037 RESOLVE_TAG (&tag_e_recl, open->recl);
2411 /* Checks on the RECL specifier. */
2412 if (open->recl && open->recl->expr_type == EXPR_CONSTAN
    [all...]
trans-io.cc 1108 if (p->recl)
1110 p->recl);
1408 if (p->recl)
1410 IOPARM_inquire_recl_out, p->recl);
gfortran.h 2780 gfc_expr *unit, *file, *status, *access, *form, *recl, member in struct:__anon16084
2810 *unformatted, *recl, *nextrec, *blank, *position, *action, *read, member in struct:__anon16087
frontend-passes.cc 2445 CHECK_INQ(recl);
5455 WALK_SUBEXPR (co->ext.open->recl);
5507 WALK_SUBEXPR (co->ext.inquire->recl);

Completed in 64 milliseconds