Lines Matching defs:io
16 #include "flang/Runtime/io-api-consts.h"
24 using namespace Fortran::runtime::io;
31 Cookie io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
32 ASSERT_TRUE(IONAME(SetAccess)(io, "DIRECT", 6)) << "SetAccess(DIRECT)";
33 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
34 ASSERT_TRUE(IONAME(SetForm)(io, "UNFORMATTED", 11)) << "SetForm(UNFORMATTED)";
38 ASSERT_TRUE(IONAME(SetRecl)(io, recl)) << "SetRecl()";
39 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
42 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
43 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
52 io = IONAME(BeginInquireIoLength)(__FILE__, __LINE__);
53 ASSERT_TRUE(IONAME(OutputDescriptor)(io, desc))
55 ASSERT_EQ(IONAME(GetIoLength)(io), recl) << "GetIoLength";
56 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
62 io = IONAME(BeginUnformattedOutput)(unit, __FILE__, __LINE__);
63 ASSERT_TRUE(IONAME(SetRec)(io, j)) << "SetRec(" << j << ')';
66 ASSERT_TRUE(IONAME(OutputDescriptor)(io, desc))
69 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
76 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
77 ASSERT_TRUE(IONAME(SetRec)(io, j)) << "SetRec(" << j << ')';
78 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc))
81 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
89 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
90 ASSERT_TRUE(IONAME(SetStatus)(io, "DELETE", 6)) << "SetStatus(DELETE)";
91 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
98 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
99 ASSERT_TRUE(IONAME(SetAccess)(io, "DIRECT", 6)) << "SetAccess(DIRECT)";
100 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
101 ASSERT_TRUE(IONAME(SetForm)(io, "UNFORMATTED", 11)) << "SetForm(UNFORMATTED)";
102 ASSERT_TRUE(IONAME(SetConvert)(io, "NATIVE", 6)) << "SetConvert(NATIVE)";
106 ASSERT_TRUE(IONAME(SetRecl)(io, recl)) << "SetRecl()";
107 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
110 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
111 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
122 io = IONAME(BeginUnformattedOutput)(unit, __FILE__, __LINE__);
123 ASSERT_TRUE(IONAME(SetRec)(io, j)) << "SetRec(" << j << ')';
125 ASSERT_TRUE(IONAME(OutputDescriptor)(io, desc))
127 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
132 io = IONAME(BeginOpenUnit)(unit, __FILE__, __LINE__);
133 ASSERT_TRUE(IONAME(SetStatus)(io, "OLD", 3)) << "SetStatus(OLD)";
134 ASSERT_TRUE(IONAME(SetConvert)(io, "SWAP", 4)) << "SetConvert(SWAP)";
135 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
140 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
141 ASSERT_TRUE(IONAME(SetRec)(io, j)) << "SetRec(" << j << ')';
142 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc))
144 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
152 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
153 ASSERT_TRUE(IONAME(SetStatus)(io, "DELETE", 6)) << "SetStatus(DELETE)";
154 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
161 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
162 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
164 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
165 ASSERT_TRUE(IONAME(SetForm)(io, "UNFORMATTED", 11)) << "SetForm(UNFORMATTED)";
170 ASSERT_TRUE(IONAME(SetRecl)(io, recl)) << "SetRecl()";
171 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
174 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
175 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
184 io = IONAME(BeginInquireIoLength)(__FILE__, __LINE__);
186 ASSERT_TRUE(IONAME(OutputDescriptor)(io, desc))
189 ASSERT_EQ(IONAME(GetIoLength)(io), 3 * recl) << "GetIoLength";
190 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
196 io = IONAME(BeginUnformattedOutput)(unit, __FILE__, __LINE__);
198 ASSERT_TRUE(IONAME(OutputDescriptor)(io, desc))
200 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
205 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
206 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
211 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
212 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc))
214 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
223 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
224 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
227 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
228 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc))
230 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
236 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
237 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
242 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
243 ASSERT_TRUE(IONAME(SetStatus)(io, "DELETE", 6)) << "SetStatus(DELETE)";
244 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
251 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
253 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
255 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
256 ASSERT_TRUE(IONAME(SetForm)(io, "UNFORMATTED", 11)) << "SetForm(UNFORMATTED)";
257 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
260 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
261 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
275 io = IONAME(BeginUnformattedOutput)(unit, __FILE__, __LINE__);
278 ASSERT_TRUE(IONAME(OutputDescriptor)(io, desc))
280 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
285 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
286 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
290 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
293 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc))
295 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
306 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
307 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
310 io = IONAME(BeginUnformattedInput)(unit, __FILE__, __LINE__);
313 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc)) << "InputDescriptor()";
314 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
322 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
323 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
328 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
329 ASSERT_TRUE(IONAME(SetStatus)(io, "DELETE", 6)) << "SetStatus(DELETE)";
330 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
337 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
338 ASSERT_TRUE(IONAME(SetAccess)(io, "DIRECT", 6)) << "SetAccess(DIRECT)";
339 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
340 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
343 ASSERT_TRUE(IONAME(SetRecl)(io, recl)) << "SetRecl()";
344 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
347 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
348 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
355 io = IONAME(BeginExternalFormattedOutput)(
357 ASSERT_TRUE(IONAME(SetRec)(io, j)) << "SetRec(" << j << ')';
358 ASSERT_TRUE(IONAME(OutputInteger64)(io, j)) << "OutputInteger64()";
359 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
365 io = IONAME(BeginExternalFormattedInput)(
367 ASSERT_TRUE(IONAME(SetRec)(io, j)) << "SetRec(" << j << ')';
369 ASSERT_TRUE(IONAME(InputInteger)(io, buffer)) << "InputInteger()";
370 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
379 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
380 ASSERT_TRUE(IONAME(SetStatus)(io, "DELETE", 6)) << "SetStatus(DELETE)";
381 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
388 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
389 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
391 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
392 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
393 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
396 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
397 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
410 io = IONAME(BeginExternalFormattedOutput)(
413 ASSERT_TRUE(IONAME(OutputInteger64)(io, buffer[k]))
416 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
421 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
422 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
428 io = IONAME(BeginExternalFormattedInput)(
433 ASSERT_TRUE(IONAME(InputInteger)(io, check[k])) << "InputInteger()";
435 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
448 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
449 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
454 io = IONAME(BeginExternalFormattedInput)(
459 ASSERT_TRUE(IONAME(InputInteger)(io, check[k])) << "InputInteger()";
462 std::size_t chars{IONAME(GetSize)(io)};
465 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
475 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
476 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
481 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
482 ASSERT_TRUE(IONAME(SetStatus)(io, "DELETE", 6)) << "SetStatus(DELETE)";
483 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
490 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
491 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
493 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
494 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
495 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
498 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
499 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
508 io = IONAME(BeginExternalFormattedOutput)(
510 ASSERT_TRUE(IONAME(OutputAscii)(io, record.data(), record.length()))
512 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
517 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
518 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
540 io = IONAME(BeginExternalFormattedInput)(
542 IONAME(EnableHandlers)(io, true, false, false, false, false);
543 ASSERT_TRUE(IONAME(SetAdvance)(io, "NO", 2)) << "SetAdvance(NO)" << j;
544 ASSERT_TRUE(IONAME(SetPad)(io, "NO", 2)) << "SetPad(NO)" << j;
546 IONAME(InputAscii)(io, inputItem.item.data(), inputItem.item.length())};
549 ASSERT_EQ(IONAME(EndIoStatement)(io), inputItem.expectedIoStat)
557 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
558 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
566 io = IONAME(BeginExternalFormattedInput)(
568 IONAME(EnableHandlers)(io, true, false, false, false, false);
569 ASSERT_TRUE(IONAME(SetAdvance)(io, "NO", 2)) << "SetAdvance(NO)" << j;
570 ASSERT_TRUE(IONAME(SetPad)(io, "YES", 3)) << "SetPad(YES)" << j;
572 IONAME(InputAscii)(io, inputItem.item.data(), inputItem.item.length())};
575 ASSERT_EQ(IONAME(EndIoStatement)(io), inputItem.expectedIoStat)
583 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
584 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
591 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
592 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
594 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
595 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
596 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
599 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
600 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
608 io = IONAME(BeginExternalFormattedOutput)(
610 ASSERT_TRUE(IONAME(OutputAscii)(io, record.data(), record.length()))
612 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
617 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
618 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
635 io = IONAME(BeginExternalFormattedInput)(
637 IONAME(EnableHandlers)(io, true, false, false, false, false);
638 ASSERT_TRUE(IONAME(SetAdvance)(io, "NO", 2)) << "SetAdvance(NO)" << j;
640 IONAME(InputAscii)(io, inputItem.item.data(), inputItem.item.length()))
642 ASSERT_EQ(IONAME(EndIoStatement)(io), inputItem.expectedIoStat)
652 io = IONAME(BeginExternalFormattedOutput)(
654 ASSERT_TRUE(IONAME(OutputAscii)(io, outputItem.data(), outputItem.length()))
656 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
663 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
664 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
670 io = IONAME(BeginExternalFormattedInput)(
672 IONAME(EnableHandlers)(io, true, false, false, false, false);
674 IONAME(InputAscii)(io, resultRecord.data(), resultRecord.length()))
676 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
681 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
682 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
689 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
690 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
692 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
693 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
694 ASSERT_TRUE(IONAME(SetStatus)(io, "SCRATCH", 7)) << "SetStatus(SCRATCH)";
696 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
697 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
701 io = IONAME(BeginExternalFormattedOutput)(
703 ASSERT_TRUE(IONAME(OutputInteger64)(io, 1234)) << "OutputInteger64()";
704 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
707 io = IONAME(BeginEndfile)(unit, __FILE__, __LINE__);
708 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
711 io = IONAME(BeginExternalFormattedOutput)(
713 IONAME(EnableHandlers)(io, true /*IOSTAT=*/);
714 ASSERT_FALSE(IONAME(OutputInteger64)(io, 5678)) << "OutputInteger64()";
715 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatWriteAfterEndfile)
718 io = IONAME(BeginBackspace)(unit, __FILE__, __LINE__);
719 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
722 io = IONAME(BeginExternalFormattedOutput)(
724 ASSERT_TRUE(IONAME(OutputInteger64)(io, 3456)) << "OutputInteger64()";
725 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
728 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
729 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
733 io = IONAME(BeginExternalFormattedInput)(
735 IONAME(EnableHandlers)(io, false, false, true /*END=*/);
736 ASSERT_TRUE(IONAME(InputInteger)(io, j)) << "InputInteger(j)";
738 ASSERT_TRUE(IONAME(InputInteger)(io, k)) << "InputInteger(k)";
740 ASSERT_FALSE(IONAME(InputInteger)(io, eof)) << "InputInteger(eof)";
742 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatEnd) << "EndIoStatement for READ";
744 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
745 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
752 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
753 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
755 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
756 ASSERT_TRUE(IONAME(SetFile)(io, "utf8test", 8)) << "SetFile(utf8test)";
757 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
758 ASSERT_TRUE(IONAME(SetStatus)(io, "REPLACE", 7)) << "SetStatus(REPLACE)";
759 ASSERT_TRUE(IONAME(SetEncoding)(io, "UTF-8", 5)) << "SetEncoding(UTF-8)";
761 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
762 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
770 io = IONAME(BeginExternalListOutput)(unit, __FILE__, __LINE__);
775 ASSERT_TRUE(IONAME(OutputDescriptor)(io, desc));
776 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
779 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
780 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
785 io = IONAME(BeginExternalListInput)(unit, __FILE__, __LINE__);
786 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc));
787 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
795 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
796 ASSERT_TRUE(IONAME(SetStatus)(io, "KEEP", 4)) << "SetStatus(KEEP)";
797 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
801 io = IONAME(BeginOpenNewUnit)(__FILE__, __LINE__);
802 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
804 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
805 ASSERT_TRUE(IONAME(SetFile)(io, "utf8test", 8)) << "SetFile(utf8test)";
806 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
807 ASSERT_TRUE(IONAME(SetStatus)(io, "OLD", 3)) << "SetStatus(OLD)";
808 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
809 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
812 io = IONAME(BeginExternalListInput)(unit, __FILE__, __LINE__);
813 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc));
814 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
822 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
823 ASSERT_TRUE(IONAME(SetStatus)(io, "DELETE", 6)) << "SetStatus(DELETE)";
824 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
831 auto *io{IONAME(BeginOpenNewUnit)(__FILE__, __LINE__)};
832 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
834 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
835 ASSERT_TRUE(IONAME(SetFile)(io, "ucstest", 7)) << "SetAction(ucstest)";
836 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
837 ASSERT_TRUE(IONAME(SetStatus)(io, "REPLACE", 7)) << "SetStatus(REPLACE)";
838 ASSERT_TRUE(IONAME(SetEncoding)(io, "UTF-8", 5)) << "SetEncoding(UTF-8)";
840 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
841 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
846 io = IONAME(BeginExternalListOutput)(unit, __FILE__, __LINE__);
852 ASSERT_TRUE(IONAME(OutputDescriptor)(io, desc));
853 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
856 io = IONAME(BeginRewind)(unit, __FILE__, __LINE__);
857 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
860 io = IONAME(BeginExternalListInput)(unit, __FILE__, __LINE__);
863 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc));
864 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
882 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
883 ASSERT_TRUE(IONAME(SetStatus)(io, "KEEP", 4)) << "SetStatus(KEEP)";
884 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
888 io = IONAME(BeginOpenNewUnit)(__FILE__, __LINE__);
889 ASSERT_TRUE(IONAME(SetAccess)(io, "SEQUENTIAL", 10))
891 ASSERT_TRUE(IONAME(SetAction)(io, "READWRITE", 9)) << "SetAction(READWRITE)";
892 ASSERT_TRUE(IONAME(SetFile)(io, "ucstest", 7)) << "SetFile(ucstest)";
893 ASSERT_TRUE(IONAME(SetForm)(io, "FORMATTED", 9)) << "SetForm(FORMATTED)";
894 ASSERT_TRUE(IONAME(SetStatus)(io, "OLD", 3)) << "SetStatus(OLD)";
895 ASSERT_TRUE(IONAME(GetNewUnit)(io, unit)) << "GetNewUnit()";
896 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
900 io = IONAME(BeginExternalListInput)(unit, __FILE__, __LINE__);
903 ASSERT_TRUE(IONAME(InputDescriptor)(io, desc));
904 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)
919 io = IONAME(BeginClose)(unit, __FILE__, __LINE__);
920 ASSERT_TRUE(IONAME(SetStatus)(io, "DELETE", 6)) << "SetStatus(DELETE)";
921 ASSERT_EQ(IONAME(EndIoStatement)(io), IostatOk)