Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/io/unit.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* Copyright (C) 2002-2018 Free Software Foundation, Inc. 1 /* Copyright (C) 2002-2020 Free Software Foundation, Inc.
2 Contributed by Andy Vaught 2 Contributed by Andy Vaught
3 F2003 I/O support contributed by Jerry DeLisle 3 F2003 I/O support contributed by Jerry DeLisle
4 4
5 This file is part of the GNU Fortran runtime library (libgfortran). 5 This file is part of the GNU Fortran runtime library (libgfortran).
6 6
429 is_trim_ok (st_parameter_dt *dtp) 429 is_trim_ok (st_parameter_dt *dtp)
430 { 430 {
431 /* Check rank and stride. */ 431 /* Check rank and stride. */
432 if (dtp->internal_unit_desc) 432 if (dtp->internal_unit_desc)
433 return false; 433 return false;
434 /* Format strings can not have 'BZ' or '/'. */ 434 /* Format strings cannot have 'BZ' or '/'. */
435 if (dtp->common.flags & IOPARM_DT_HAS_FORMAT) 435 if (dtp->common.flags & IOPARM_DT_HAS_FORMAT)
436 { 436 {
437 char *p = dtp->format; 437 char *p = dtp->format;
438 if (dtp->common.flags & IOPARM_DT_HAS_BLANK) 438 if (dtp->common.flags & IOPARM_DT_HAS_BLANK)
439 return false; 439 return false;
512 iunit->flags.action = ACTION_READWRITE; 512 iunit->flags.action = ACTION_READWRITE;
513 iunit->flags.blank = BLANK_NULL; 513 iunit->flags.blank = BLANK_NULL;
514 iunit->flags.form = FORM_FORMATTED; 514 iunit->flags.form = FORM_FORMATTED;
515 iunit->flags.pad = PAD_YES; 515 iunit->flags.pad = PAD_YES;
516 iunit->flags.status = STATUS_UNSPECIFIED; 516 iunit->flags.status = STATUS_UNSPECIFIED;
517 iunit->flags.sign = SIGN_UNSPECIFIED; 517 iunit->flags.sign = SIGN_PROCDEFINED;
518 iunit->flags.decimal = DECIMAL_POINT; 518 iunit->flags.decimal = DECIMAL_POINT;
519 iunit->flags.delim = DELIM_UNSPECIFIED; 519 iunit->flags.delim = DELIM_UNSPECIFIED;
520 iunit->flags.encoding = ENCODING_DEFAULT; 520 iunit->flags.encoding = ENCODING_DEFAULT;
521 iunit->flags.async = ASYNC_NO; 521 iunit->flags.async = ASYNC_NO;
522 iunit->flags.round = ROUND_UNSPECIFIED; 522 iunit->flags.round = ROUND_PROCDEFINED;
523 523
524 /* Initialize the data transfer parameters. */ 524 /* Initialize the data transfer parameters. */
525 525
526 dtp->u.p.advance_status = ADVANCE_YES; 526 dtp->u.p.advance_status = ADVANCE_YES;
527 dtp->u.p.seen_dollar = 0; 527 dtp->u.p.seen_dollar = 0;
625 u->flags.form = FORM_FORMATTED; 625 u->flags.form = FORM_FORMATTED;
626 u->flags.status = STATUS_OLD; 626 u->flags.status = STATUS_OLD;
627 u->flags.blank = BLANK_NULL; 627 u->flags.blank = BLANK_NULL;
628 u->flags.pad = PAD_YES; 628 u->flags.pad = PAD_YES;
629 u->flags.position = POSITION_ASIS; 629 u->flags.position = POSITION_ASIS;
630 u->flags.sign = SIGN_UNSPECIFIED; 630 u->flags.sign = SIGN_PROCDEFINED;
631 u->flags.decimal = DECIMAL_POINT; 631 u->flags.decimal = DECIMAL_POINT;
632 u->flags.delim = DELIM_UNSPECIFIED; 632 u->flags.delim = DELIM_UNSPECIFIED;
633 u->flags.encoding = ENCODING_DEFAULT; 633 u->flags.encoding = ENCODING_DEFAULT;
634 u->flags.async = ASYNC_NO; 634 u->flags.async = ASYNC_NO;
635 u->flags.round = ROUND_UNSPECIFIED; 635 u->flags.round = ROUND_PROCDEFINED;
636 u->flags.share = SHARE_UNSPECIFIED; 636 u->flags.share = SHARE_UNSPECIFIED;
637 u->flags.cc = CC_LIST; 637 u->flags.cc = CC_LIST;
638 638
639 u->recl = default_recl; 639 u->recl = default_recl;
640 u->endfile = NO_ENDFILE; 640 u->endfile = NO_ENDFILE;
656 u->flags.access = ACCESS_SEQUENTIAL; 656 u->flags.access = ACCESS_SEQUENTIAL;
657 u->flags.form = FORM_FORMATTED; 657 u->flags.form = FORM_FORMATTED;
658 u->flags.status = STATUS_OLD; 658 u->flags.status = STATUS_OLD;
659 u->flags.blank = BLANK_NULL; 659 u->flags.blank = BLANK_NULL;
660 u->flags.position = POSITION_ASIS; 660 u->flags.position = POSITION_ASIS;
661 u->flags.sign = SIGN_UNSPECIFIED; 661 u->flags.sign = SIGN_PROCDEFINED;
662 u->flags.decimal = DECIMAL_POINT; 662 u->flags.decimal = DECIMAL_POINT;
663 u->flags.delim = DELIM_UNSPECIFIED; 663 u->flags.delim = DELIM_UNSPECIFIED;
664 u->flags.encoding = ENCODING_DEFAULT; 664 u->flags.encoding = ENCODING_DEFAULT;
665 u->flags.async = ASYNC_NO; 665 u->flags.async = ASYNC_NO;
666 u->flags.round = ROUND_UNSPECIFIED; 666 u->flags.round = ROUND_PROCDEFINED;
667 u->flags.share = SHARE_UNSPECIFIED; 667 u->flags.share = SHARE_UNSPECIFIED;
668 u->flags.cc = CC_LIST; 668 u->flags.cc = CC_LIST;
669 669
670 u->recl = default_recl; 670 u->recl = default_recl;
671 u->endfile = AT_ENDFILE; 671 u->endfile = AT_ENDFILE;
687 u->flags.access = ACCESS_SEQUENTIAL; 687 u->flags.access = ACCESS_SEQUENTIAL;
688 u->flags.form = FORM_FORMATTED; 688 u->flags.form = FORM_FORMATTED;
689 u->flags.status = STATUS_OLD; 689 u->flags.status = STATUS_OLD;
690 u->flags.blank = BLANK_NULL; 690 u->flags.blank = BLANK_NULL;
691 u->flags.position = POSITION_ASIS; 691 u->flags.position = POSITION_ASIS;
692 u->flags.sign = SIGN_UNSPECIFIED; 692 u->flags.sign = SIGN_PROCDEFINED;
693 u->flags.decimal = DECIMAL_POINT; 693 u->flags.decimal = DECIMAL_POINT;
694 u->flags.encoding = ENCODING_DEFAULT; 694 u->flags.encoding = ENCODING_DEFAULT;
695 u->flags.async = ASYNC_NO; 695 u->flags.async = ASYNC_NO;
696 u->flags.round = ROUND_UNSPECIFIED; 696 u->flags.round = ROUND_PROCDEFINED;
697 u->flags.share = SHARE_UNSPECIFIED; 697 u->flags.share = SHARE_UNSPECIFIED;
698 u->flags.cc = CC_LIST; 698 u->flags.cc = CC_LIST;
699 699
700 u->recl = default_recl; 700 u->recl = default_recl;
701 u->endfile = AT_ENDFILE; 701 u->endfile = AT_ENDFILE;