Lines Matching defs:unit
29 // OPEN(NEWUNIT=unit,ACCESS='DIRECT',ACTION='READWRITE',&
41 int unit{-1};
42 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
61 // WRITE(UNIT=unit,REC=j) j
62 io = IONAME(BeginUnformattedOutput)(unit, __FILE__, __LINE__);
75 // READ(UNIT=unit,REC=j) n
76 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
88 // CLOSE(UNIT=unit,STATUS='DELETE')
89 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
96 // OPEN(NEWUNIT=unit,ACCESS='DIRECT',ACTION='READWRITE',&
109 int unit{-1};
110 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
121 // WRITE(UNIT=unit,REC=j) j
122 io = IONAME(BeginUnformattedOutput)(unit, __FILE__, __LINE__);
131 // OPEN(UNIT=unit,STATUS='OLD',CONVERT='SWAP')
132 io = IONAME(BeginOpenUnit)(unit, __FILE__, __LINE__);
139 // READ(UNIT=unit,REC=j) n
140 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
151 // CLOSE(UNIT=unit,STATUS='DELETE')
152 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
159 // OPEN(NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
173 int unit{-1};
174 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
195 // DO J=1,RECORDS; WRITE(UNIT=unit) j; END DO
196 io = IONAME(BeginUnformattedOutput)(unit, __FILE__, __LINE__);
204 // REWIND(UNIT=unit)
205 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
210 // DO J=1,RECORDS; READ(UNIT=unit) n; check n; END DO
211 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
222 // BACKSPACE(UNIT=unit)
223 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
226 // READ(UNIT=unit) n
227 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
235 // BACKSPACE(UNIT=unit)
236 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
241 // CLOSE(UNIT=unit,STATUS='DELETE')
242 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
249 // OPEN(NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
259 int unit{-1};
260 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
274 // DO J=1,RECORDS; WRITE(UNIT=unit) BUFFER(0:j); END DO
275 io = IONAME(BeginUnformattedOutput)(unit, __FILE__, __LINE__);
284 // REWIND(UNIT=unit)
285 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
289 // DO J=1,RECORDS; READ(UNIT=unit) n; check n; END DO
290 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
305 // BACKSPACE(unit)
306 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
309 // READ(unit=unit) n; check
310 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
321 // BACKSPACE(unit)
322 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
327 // CLOSE(UNIT=unit,STATUS='DELETE')
328 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
335 // OPEN(NEWUNIT=unit,ACCESS='DIRECT',ACTION='READWRITE',&
346 int unit{-1};
347 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
354 // WRITE(UNIT=unit,FMT=fmt,REC=j) j
356 fmt, sizeof fmt - 1, nullptr, unit, __FILE__, __LINE__);
364 // READ(UNIT=unit,FMT=fmt,REC=j) n
366 fmt, sizeof fmt - 1, nullptr, unit, __FILE__, __LINE__);
378 // CLOSE(UNIT=unit,STATUS='DELETE')
379 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
386 // OPEN(NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
395 int unit{-1};
396 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
409 // DO J=1,RECORDS; WRITE(UNIT=unit,FMT=fmt) BUFFER(0:j); END DO
411 fmt, std::strlen(fmt), nullptr, unit, __FILE__, __LINE__);
420 // REWIND(UNIT=unit)
421 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
427 // DO J=1,RECORDS; READ(UNIT=unit,FMT=fmt) n; check n; END DO
429 fmt, std::strlen(fmt), nullptr, unit, __FILE__, __LINE__);
447 // BACKSPACE(unit)
448 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
453 // READ(UNIT=unit,FMT=fmt,SIZE=chars) n; check
455 fmt, std::strlen(fmt), nullptr, unit, __FILE__, __LINE__);
474 // BACKSPACE(unit)
475 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
480 // CLOSE(UNIT=unit,STATUS='DELETE')
481 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
488 // OPEN(NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
497 int unit{-1};
498 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
507 // WRITE(UNIT=unit,FMT=fmt) record
509 fmt.data(), fmt.length(), nullptr, unit, __FILE__, __LINE__);
516 // REWIND(UNIT=unit)
517 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
539 // READ(UNIT=unit, FMT=fmt, ADVANCE='NO', PAD='NO', IOSTAT=iostat) inputItem
541 fmt.data(), fmt.length(), nullptr, unit, __FILE__, __LINE__);
556 // REWIND(UNIT=unit)
557 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
564 // READ(UNIT=unit, FMT=fmt, ADVANCE='NO', PAD='YES', IOSTAT=iostat)
567 fmt.data(), fmt.length(), nullptr, unit, __FILE__, __LINE__);
582 // CLOSE(UNIT=unit)
583 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
589 // OPEN(NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
598 int unit{-1};
599 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
607 // WRITE(UNIT=unit,FMT=fmt) record
609 fmt.data(), fmt.length(), nullptr, unit, __FILE__, __LINE__);
616 // REWIND(UNIT=unit)
617 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
634 // READ(UNIT=unit, FMT=fmt, ADVANCE='NO', IOSTAT=iostat) inputItem
636 fmt.data(), fmt.length(), nullptr, unit, __FILE__, __LINE__);
649 // WRITE(UNIT=unit, FMT=fmt, IOSTAT=iostat) outputItem.
651 // WRITE(UNIT=unit,FMT=fmt) record
653 fmt.data(), fmt.length(), nullptr, unit, __FILE__, __LINE__);
662 // REWIND(UNIT=unit)
663 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
669 // READ(UNIT=unit, FMT=fmt, IOSTAT=iostat) result
671 fmt.data(), fmt.length(), nullptr, unit, __FILE__, __LINE__);
680 // CLOSE(UNIT=unit)
681 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
687 // OPEN(NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
695 int unit{-1};
696 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
699 // WRITE(unit,"(I8)") 1234
702 format.data(), format.length(), nullptr, unit, __FILE__, __LINE__);
706 // ENDFILE(unit)
707 io = IONAME(BeginEndfile)(unit, __FILE__, __LINE__);
710 // WRITE(unit,"(I8)",iostat=iostat) 5678
712 format.data(), format.length(), nullptr, unit, __FILE__, __LINE__);
717 // BACKSPACE(unit)
718 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
721 // WRITE(unit,"(I8)") 3456
723 format.data(), format.length(), nullptr, unit, __FILE__, __LINE__);
727 // REWIND(unit)
728 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
731 // READ(unit,"(I8)",END=) j, k
734 format.data(), format.length(), nullptr, unit, __FILE__, __LINE__);
743 // CLOSE(UNIT=unit)
744 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
750 // OPEN(FILE="utf8test",NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
760 int unit{-1};
761 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
769 // WRITE(unit, *) buffer
770 io = IONAME(BeginExternalListOutput)(unit, __FILE__, __LINE__);
778 // REWIND(unit)
779 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
782 // READ(unit, *) buffer
785 io = IONAME(BeginExternalListInput)(unit, __FILE__, __LINE__);
794 // CLOSE(UNIT=unit,STATUS='KEEP')
795 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
799 // OPEN(FILE="utf8test",NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
808 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
811 // READ(unit, *) buffer
812 io = IONAME(BeginExternalListInput)(unit, __FILE__, __LINE__);
821 // CLOSE(UNIT=unit,STATUS='DELETE')
822 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
829 // OPEN(FILE="ucstest',NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
839 int unit{-1};
840 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
845 // WRITE(unit, *) wbuffec
846 io = IONAME(BeginExternalListOutput)(unit, __FILE__, __LINE__);
855 // REWIND(unit)
856 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
859 // READ(unit, *) buffer
860 io = IONAME(BeginExternalListInput)(unit, __FILE__, __LINE__);
881 // CLOSE(UNIT=unit,STATUS='KEEP')
882 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
886 // OPEN(FILE="ucstest",NEWUNIT=unit,ACCESS='SEQUENTIAL',ACTION='READWRITE',&
895 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
899 // READ(unit, *) buffer
900 io = IONAME(BeginExternalListInput)(unit, __FILE__, __LINE__);
918 // CLOSE(UNIT=unit,STATUS='DELETE')
919 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);