Lines Matching refs:Word
136 Put('.'), Word(DefinedOperator::EnumToString(x)), Put('.'); in Unparse()
142 Word("TYPE("), Walk(x.derived), Put(')'); in Unparse()
145 Word("CLASS("), Walk(x.derived), Put(')'); in Unparse()
147 void Post(const DeclarationTypeSpec::ClassStar &) { Word("CLASS(*)"); } in Post()
148 void Post(const DeclarationTypeSpec::TypeStar &) { Word("TYPE(*)"); } in Post()
150 Word("RECORD/"), Walk(x.v), Put('/'); in Unparse()
153 Word("REAL"); in Before()
155 void Before(const IntrinsicTypeSpec::Complex &) { Word("COMPLEX"); } in Before()
157 Word("DOUBLE PRECISION"); in Post()
159 void Before(const IntrinsicTypeSpec::Character &) { Word("CHARACTER"); } in Before()
160 void Before(const IntrinsicTypeSpec::Logical &) { Word("LOGICAL"); } in Before()
162 Word("DOUBLE COMPLEX"); in Post()
165 Word("INTEGER"); in Before()
171 Put('('), Word("KIND="), Walk(y), Put(')'); in Unparse()
195 Put('('), Word("KIND="), Walk(x.kind); in Unparse()
201 Put('('), Word("LEN="), Walk(y), Put(')'); in Unparse()
238 Word("TYPE"), Walk(", ", std::get<std::list<TypeAttrSpec>>(x.t), ", "); in Unparse()
244 Word("ABSTRACT"); in Unparse()
246 void Post(const TypeAttrSpec::BindC &) { Word("BIND(C)"); } in Post()
248 Word("EXTENDS("), Walk(x.v), Put(')'); in Unparse()
251 Outdent(), Word("END TYPE"), Walk(" ", x.v); in Unparse()
254 Word("SEQUENCE"); in Unparse()
293 Word("ALLOCATABLE"); in Unparse()
295 void Unparse(const Pointer &) { Word("POINTER"); } in Unparse()
296 void Unparse(const Contiguous &) { Word("CONTIGUOUS"); } in Unparse()
299 [&](const CoarraySpec &) { Word("CODIMENSION["); }, in Before()
300 [&](const ComponentArraySpec &) { Word("DIMENSION("); }, in Before()
334 Word("PROCEDURE("); in Unparse()
340 Word("NOPASS"); in Unparse()
342 void Unparse(const Pass &x) { Word("PASS"), Walk("(", x.v, ")"); } in Unparse()
356 Word("PRIVATE"); in Unparse()
359 Word("PROCEDURE"), Walk(", ", x.attributes, ", "); in Unparse()
363 Word("PROCEDURE("), Walk(x.interfaceName), Put("), "); in Unparse()
372 Word("GENERIC"), Walk(", ", std::get<std::optional<AccessSpec>>(x.t)); in Unparse()
376 void Post(const BindAttr::Deferred &) { Word("DEFERRED"); } // R752 in Post()
377 void Post(const BindAttr::Non_Overridable &) { Word("NON_OVERRIDABLE"); } in Post()
379 Word("FINAL :: "), Walk(x.v, ", "); in Unparse()
398 Word("ENUM, BIND(C)"), Indent(); in Unparse()
401 Word("ENUMERATOR :: "), Walk(x.v, ", "); in Unparse()
408 Outdent(), Word("END ENUM"); in Post()
493 [&](const CoarraySpec &) { Word("CODIMENSION["); }, in Before()
494 [&](const ArraySpec &) { Word("DIMENSION("); }, in Before()
515 Word("NULL()"); in Unparse()
518 Word("BIND(C"), Walk(", NAME=", x.v), Put(')'); in Unparse()
576 void Post(const Asynchronous &) { Word("ASYNCHRONOUS"); } in Post()
577 void Post(const External &) { Word("EXTERNAL"); } in Post()
578 void Post(const Intrinsic &) { Word("INTRINSIC"); } in Post()
579 void Post(const Optional &) { Word("OPTIONAL"); } in Post()
580 void Post(const Parameter &) { Word("PARAMETER"); } in Post()
581 void Post(const Protected &) { Word("PROTECTED"); } in Post()
582 void Post(const Save &) { Word("SAVE"); } in Post()
583 void Post(const Target &) { Word("TARGET"); } in Post()
584 void Post(const Value &) { Word("VALUE"); } in Post()
585 void Post(const Volatile &) { Word("VOLATILE"); } in Post()
587 Word("INTENT("), Walk(x.v), Put(")"); in Unparse()
594 Word("ALLOCATABLE :: "), Walk(x.v, ", "); in Unparse()
602 Word("ASYNCHRONOUS :: "), Walk(x.v, ", "); in Unparse()
613 Word("CODIMENSION :: "), Walk(x.v, ", "); in Unparse()
620 Word("CONTIGUOUS :: "), Walk(x.v, ", "); in Unparse()
623 Word("DATA "), Walk(x.v, ", "); in Unparse()
639 Word("DIMENSION :: "), Walk(x.v, ", "); in Unparse()
649 Word("OPTIONAL :: "), Walk(x.v, ", "); in Unparse()
652 Word("PARAMETER("), Walk(x.v, ", "), Put(')'); in Unparse()
658 Word("POINTER :: "), Walk(x.v, ", "); in Unparse()
665 Word("PROTECTED :: "), Walk(x.v, ", "); in Unparse()
668 Word("SAVE"), Walk(" :: ", x.v, ", "); in Unparse()
677 Word("TARGET :: "), Walk(x.v, ", "); in Unparse()
680 Word("VALUE :: "), Walk(x.v, ", "); in Unparse()
683 Word("VOLATILE :: "), Walk(x.v, ", "); in Unparse()
686 Word("IMPLICIT "); in Unparse()
691 Word("NONE"), Walk(" (", y, ", ", ")"); in Unparse()
708 Word("IMPORT"); in Unparse()
714 Put(", "), Word("ONLY: "); in Unparse()
718 Word(", NONE"); in Unparse()
721 Word(", ALL"); in Unparse()
726 Word("NAMELIST"), Walk(x.v, ", "); in Unparse()
733 Word("EQUIVALENCE"); in Unparse()
741 Word("COMMON "); in Unparse()
749 Word("/"), Walk(std::get<std::optional<Name>>(x.t)), Word("/"); in Unparse()
796 Word("STAT="); in Before()
798 void Before(const ImageSelectorSpec::Team_Number &) { Word("TEAM_NUMBER="); } in Before()
801 Word("TEAM="); in Before()
805 Word("ALLOCATE("); in Unparse()
812 [&](const AllocOpt::Mold &) { Word("MOLD="); }, in Before()
813 [&](const AllocOpt::Source &) { Word("SOURCE="); }, in Before()
832 Word("NULLIFY("), Walk(x.v, ", "), Put(')'); in Unparse()
835 Word("DEALLOCATE("); in Unparse()
841 [&](const StatVariable &) { Word("STAT="); }, in Before()
842 [&](const MsgVariable &) { Word("ERRMSG="); }, in Before()
851 void Before(const Expr::NOT &) { Word(".NOT."); } in Before()
853 Word("%LOC("), Walk(x.v), Put(')'); in Unparse()
916 Word("WHERE ("), Walk(x.t, ") "); in Unparse()
920 Word("WHERE ("), Walk(std::get<LogicalExpr>(x.t)), Put(')'); in Unparse()
925 Word("ELSEWHERE ("), Walk(std::get<LogicalExpr>(x.t)), Put(')'); in Unparse()
930 Outdent(), Word("ELSEWHERE"), Walk(" ", x.v), Indent(); in Unparse()
933 Outdent(), Word("END WHERE"), Walk(" ", x.v); in Unparse()
937 Word("FORALL"), Walk(std::get<common::Indirection<ConcurrentHeader>>(x.t)); in Unparse()
941 Outdent(), Word("END FORALL"), Walk(" ", x.v); in Unparse()
944 Word("FORALL"); in Before()
949 Word("ASSOCIATE ("); in Unparse()
956 Outdent(), Word("END ASSOCIATE"), Walk(" ", x.v); in Unparse()
959 Walk(x.v, ": "), Word("BLOCK"), Indent(); in Unparse()
962 Outdent(), Word("END BLOCK"), Walk(" ", x.v); in Unparse()
966 Word("CHANGE TEAM ("), Walk(std::get<TeamValue>(x.t)); in Unparse()
975 Outdent(), Word("END TEAM ("); in Unparse()
981 Word("CRITICAL ("), Walk(std::get<std::list<StatOrErrmsg>>(x.t), ", "); in Unparse()
985 Outdent(), Word("END CRITICAL"), Walk(" ", x.v); in Unparse()
994 Word("DO "), Walk(std::get<Label>(x.t)); in Unparse()
999 Word("DO "), Walk(std::get<std::optional<LoopControl>>(x.t)); in Unparse()
1004 Word("WHILE ("), Walk(y), Put(')'); in Unparse()
1021 Word("CONCURRENT"); in Before()
1024 Word("LOCAL("), Walk(x.v, ", "), Put(')'); in Unparse()
1027 Word("LOCAL_INIT("), Walk(x.v, ", "), Put(')'); in Unparse()
1030 Word("SHARED("), Walk(x.v, ", "), Put(')'); in Unparse()
1032 void Post(const LocalitySpec::DefaultNone &) { Word("DEFAULT(NONE)"); } in Post()
1034 Word("END DO"), Walk(" ", x.v); in Unparse()
1037 Word("CYCLE"), Walk(" ", x.v); in Unparse()
1041 Word("IF ("), Walk(std::get<ScalarLogicalExpr>(x.t)); in Unparse()
1042 Put(") "), Word("THEN"), Indent(); in Unparse()
1045 Outdent(), Word("ELSE IF ("); in Unparse()
1046 Walk(std::get<ScalarLogicalExpr>(x.t)), Put(") "), Word("THEN"); in Unparse()
1050 Outdent(), Word("ELSE"), Walk(" ", x.v), Indent(); in Unparse()
1053 Outdent(), Word("END IF"), Walk(" ", x.v); in Unparse()
1056 Word("IF ("), Walk(x.t, ") "); in Unparse()
1060 Word("SELECT CASE ("); in Unparse()
1064 Outdent(), Word("CASE "), Walk(std::get<CaseSelector>(x.t)); in Unparse()
1068 Outdent(), Word("END SELECT"), Walk(" ", x.v); in Unparse()
1075 [&](const Default &) { Word("DEFAULT"); }, in Unparse()
1084 Word("SELECT RANK ("), Walk(std::get<1>(x.t), " => "); in Unparse()
1088 Outdent(), Word("RANK "); in Unparse()
1094 [&](const Default &) { Word("DEFAULT"); }, in Unparse()
1101 Word("SELECT TYPE ("), Walk(std::get<1>(x.t), " => "); in Unparse()
1111 [&](const TypeSpec &y) { Word("TYPE IS ("), Walk(y), Put(')'); }, in Unparse()
1113 Word("CLASS IS ("), Walk(y), Put(')'); in Unparse()
1115 [&](const Default &) { Word("CLASS DEFAULT"); }, in Unparse()
1120 Word("EXIT"), Walk(" ", x.v); in Unparse()
1123 Word("GO TO "); in Before()
1126 Word("GO TO ("), Walk(x.t, "), "); in Unparse()
1129 Word("CONTINUE"); in Unparse()
1133 Word("ERROR "); in Unparse()
1135 Word("STOP"), Walk(" ", std::get<std::optional<StopCode>>(x.t)); in Unparse()
1139 Word("FAIL IMAGE"); in Unparse()
1142 Word("SYNC ALL ("), Walk(x.v, ", "), Put(')'); in Unparse()
1145 Word("SYNC IMAGES ("); in Unparse()
1150 Word("SYNC MEMORY ("), Walk(x.v, ", "), Put(')'); in Unparse()
1153 Word("SYNC TEAM ("), Walk(std::get<TeamValue>(x.t)); in Unparse()
1157 Word("EVENT POST ("), Walk(std::get<EventVariable>(x.t)); in Unparse()
1162 [&](const ScalarIntExpr &) { Word("UNTIL_COUNT="); }, in Before()
1168 Word("EVENT WAIT ("), Walk(std::get<EventVariable>(x.t)); in Unparse()
1173 Word("FORM TEAM ("), Walk(std::get<ScalarIntExpr>(x.t)); in Unparse()
1180 [&](const ScalarIntExpr &) { Word("NEW_INDEX="); }, in Before()
1186 Word("LOCK ("), Walk(std::get<LockVariable>(x.t)); in Unparse()
1193 [&](const ScalarLogicalVariable &) { Word("ACQUIRED_LOCK="); }, in Before()
1199 Word("UNLOCK ("), Walk(std::get<LockVariable>(x.t)); in Unparse()
1205 Word("OPEN ("), Walk(x.v, ", "), Put(')'); in Unparse()
1210 Word("UNIT="); in Pre()
1214 Word("FILE="); in Pre()
1222 Word("IOMSG="); in Pre()
1226 Word("IOSTAT="); in Pre()
1230 Word("RECL="); in Pre()
1234 Word("NEWUNIT="); in Pre()
1238 Word("ERR="); in Pre()
1242 Word("STATUS="); in Pre()
1249 Word("CLOSE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1253 [&](const FileUnitNumber &) { Word("UNIT="); }, in Before()
1254 [&](const StatVariable &) { Word("IOSTAT="); }, in Before()
1255 [&](const MsgVariable &) { Word("IOMSG="); }, in Before()
1256 [&](const ErrLabel &) { Word("ERR="); }, in Before()
1257 [&](const StatusExpr &) { Word("STATUS="); }, in Before()
1262 Word("READ "); in Unparse()
1281 Word("WRITE ("); in Unparse()
1294 Word("PRINT "), Walk(std::get<Format>(x.t)); in Unparse()
1300 Word("UNIT="); in Pre()
1304 Word("FMT="); in Pre()
1308 Word("NML="); in Pre()
1316 Word("ASYNCHRONOUS="); in Pre()
1320 Word("END="); in Pre()
1324 Word("EOR="); in Pre()
1328 Word("ERR="); in Pre()
1332 Word("ID="); in Pre()
1336 Word("IOMSG="); in Pre()
1340 Word("IOSTAT="); in Pre()
1344 Word("POS="); in Pre()
1348 Word("REC="); in Pre()
1352 Word("SIZE="); in Pre()
1367 Word("WAIT ("), Walk(x.v, ", "), Put(')'); in Unparse()
1371 [&](const FileUnitNumber &) { Word("UNIT="); }, in Before()
1372 [&](const EndLabel &) { Word("END="); }, in Before()
1373 [&](const EorLabel &) { Word("EOR="); }, in Before()
1374 [&](const ErrLabel &) { Word("ERR="); }, in Before()
1375 [&](const IdExpr &) { Word("ID="); }, in Before()
1376 [&](const MsgVariable &) { Word("IOMSG="); }, in Before()
1377 [&](const StatVariable &) { Word("IOSTAT="); }, in Before()
1382 Word("BACKSPACE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1385 Word("ENDFILE ("), Walk(x.v, ", "), Put(')'); in Unparse()
1388 Word("REWIND ("), Walk(x.v, ", "), Put(')'); in Unparse()
1392 [&](const FileUnitNumber &) { Word("UNIT="); }, in Before()
1393 [&](const MsgVariable &) { Word("IOMSG="); }, in Before()
1394 [&](const StatVariable &) { Word("IOSTAT="); }, in Before()
1395 [&](const ErrLabel &) { Word("ERR="); }, in Before()
1400 Word("FLUSH ("), Walk(x.v, ", "), Put(')'); in Unparse()
1403 Word("INQUIRE ("); in Unparse()
1407 Word("IOLENGTH="), Walk(y.t, ") "); in Unparse()
1416 Word("UNIT="); in Pre()
1420 Word("FILE="); in Pre()
1436 Word("ID="); in Pre()
1440 Word("ERR="); in Pre()
1448 Word("FORMAT"); in Before()
1492 Word("DT"); in Unparse()
1501 Word("T"); in Unparse()
1505 Word("TL"); in Unparse()
1509 Word("TR"); in Unparse()
1516 Word("X"); in Unparse()
1529 Word("P"); in Unparse()
1564 Word("PROGRAM "), Indent(); in Before()
1570 Word("MODULE "), Indent(); in Before()
1576 Word("USE"), Walk(", ", x.nature), Put(" :: "), Walk(x.moduleName); in Unparse()
1588 Word("OPERATOR("), Walk(y.t, ") => OPERATOR("), in Unparse()
1595 Word("SUBMODULE ("), WalkTupleElements(x.t, ")"), Indent(); in Unparse()
1604 Word("BLOCK DATA"), Walk(" ", x.v), Indent(); in Unparse()
1613 Word("INTERFACE"), Walk(" ", y); in Unparse()
1615 [&](const Abstract &) { Word("ABSTRACT INTERFACE"); }, in Unparse()
1621 Outdent(), Word("END INTERFACE"), Walk(" ", x.v); in Unparse()
1626 Word("MODULE "); in Unparse()
1628 Word("PROCEDURE :: "); in Unparse()
1634 [&](const DefinedOperator &) { Word("OPERATOR("); }, in Before()
1635 [&](const GenericSpec::Assignment &) { Word("ASSIGNMENT(=)"); }, in Before()
1637 Word("READ(FORMATTED)"); in Before()
1640 Word("READ(UNFORMATTED)"); in Before()
1643 Word("WRITE(FORMATTED)"); in Before()
1646 Word("WRITE(UNFORMATTED)"); in Before()
1660 Word("GENERIC"), Walk(", ", std::get<std::optional<AccessSpec>>(x.t)); in Unparse()
1665 Word("EXTERNAL :: "), Walk(x.v, ", "); in Unparse()
1668 Word("PROCEDURE("), Walk(std::get<std::optional<ProcInterface>>(x.t)); in Unparse()
1677 Word("INTRINSIC :: "), Walk(x.v, ", "); in Unparse()
1691 Word("CALL "), Walk(pd); in Unparse()
1706 Word("%REF("), Walk(x.v), Put(')'); in Unparse()
1709 Word("%VAL("), Walk(x.v), Put(')'); in Unparse()
1714 void Post(const PrefixSpec::Elemental) { Word("ELEMENTAL"); } // R1527 in Post()
1715 void Post(const PrefixSpec::Impure) { Word("IMPURE"); } in Post()
1716 void Post(const PrefixSpec::Module) { Word("MODULE"); } in Post()
1717 void Post(const PrefixSpec::Non_Recursive) { Word("NON_RECURSIVE"); } in Post()
1718 void Post(const PrefixSpec::Pure) { Word("PURE"); } in Post()
1719 void Post(const PrefixSpec::Recursive) { Word("RECURSIVE"); } in Post()
1722 Word("FUNCTION "), Walk(std::get<Name>(x.t)), Put("("); in Unparse()
1728 Word("RESULT("), Walk(x.resultName), Put(')'); in Unparse()
1739 Word("SUBROUTINE "), Walk(std::get<Name>(x.t)); in Unparse()
1754 Word("MODULE PROCEDURE "), Indent(); in Before()
1760 Word("ENTRY "), Walk(std::get<Name>(x.t)), Put("("); in Unparse()
1765 Word("RETURN"), Walk(" ", x.v); in Unparse()
1769 Word("CONTAINS"); in Unparse()
1783 Word("!DIR$ IGNORE_TKR"); // emitted even if tkr list is empty in Unparse()
1812 Word("!$ACC CAPTURE"); in Unparse()
1819 Word("!$ACC END ATOMIC\n"); in Unparse()
1824 Word("!$ACC ATOMIC READ"); in Unparse()
1834 Word("!$ACC ATOMIC WRITE"); in Unparse()
1844 Word("!$ACC ATOMIC UPDATE"); in Unparse()
1853 Word(llvm::acc::getOpenACCDirectiveName(x).str()); in Unparse()
1862 Word(AccDataModifier::EnumToString(x)); in Unparse()
1890 Word("!$ACC "); in Unparse()
1896 Word("!$ACC END "); in Unparse()
1903 Word("!$ACC "); in Unparse()
1915 Word("!$ACC "); in Unparse()
1923 Word("!$ACC "); in Unparse()
1931 Word("!$ACC "); in Unparse()
1943 Word("!$ACC ROUTINE"); in Unparse()
1958 Word(AccReductionOperator::EnumToString(x)); in Unparse()
1967 Word("!$ACC "); in Unparse()
1968 Word("CACHE("); in Unparse()
1980 Word("!$ACC "); in Unparse()
1981 Word("WAIT("); in Unparse()
1997 void Unparse(const OmpMapType::Always &) { Word("ALWAYS,"); } in Unparse()
2061 Word("SOURCE"); in Pre()
2065 Word("SINK:"); in Pre()
2084 Word("DISTRIBUTE "); in Unparse()
2087 Word("DISTRIBUTE PARALLEL DO "); in Unparse()
2090 Word("DISTRIBUTE PARALLEL DO SIMD "); in Unparse()
2093 Word("DISTRIBUTE SIMD "); in Unparse()
2096 Word("DO "); in Unparse()
2099 Word("DO SIMD "); in Unparse()
2102 Word("PARALLEL DO "); in Unparse()
2105 Word("PARALLEL DO SIMD "); in Unparse()
2108 Word("SIMD "); in Unparse()
2111 Word("TARGET PARALLEL DO "); in Unparse()
2114 Word("TARGET PARALLEL DO SIMD "); in Unparse()
2117 Word("TARGET TEAMS DISTRIBUTE "); in Unparse()
2120 Word("TARGET TEAMS DISTRIBUTE PARALLEL DO "); in Unparse()
2123 Word("TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD "); in Unparse()
2126 Word("TARGET TEAMS DISTRIBUTE SIMD "); in Unparse()
2129 Word("TARGET SIMD "); in Unparse()
2132 Word("TASKLOOP "); in Unparse()
2135 Word("TASKLOOP SIMD "); in Unparse()
2138 Word("TEAMS DISTRIBUTE "); in Unparse()
2141 Word("TEAMS DISTRIBUTE PARALLEL DO "); in Unparse()
2144 Word("TEAMS DISTRIBUTE PARALLEL DO SIMD "); in Unparse()
2147 Word("TEAMS DISTRIBUTE SIMD "); in Unparse()
2157 Word("BARRIER "); in Unparse()
2160 Word("TASKWAIT "); in Unparse()
2163 Word("TASKYIELD "); in Unparse()
2166 Word("TARGET ENTER DATA "); in Unparse()
2169 Word("TARGET EXIT DATA "); in Unparse()
2172 Word("TARGET UPDATE "); in Unparse()
2175 Word("ORDERED "); in Unparse()
2185 Word("MASTER"); in Unparse()
2188 Word("ORDERED "); in Unparse()
2191 Word("PARALLEL WORKSHARE "); in Unparse()
2194 Word("PARALLEL "); in Unparse()
2197 Word("SINGLE "); in Unparse()
2200 Word("TARGET DATA "); in Unparse()
2203 Word("TARGET PARALLEL "); in Unparse()
2206 Word("TARGET TEAMS "); in Unparse()
2209 Word("TARGET "); in Unparse()
2212 Word("TASKGROUP "); in Unparse()
2215 Word("TASK "); in Unparse()
2218 Word("TEAMS "); in Unparse()
2221 Word("WORKSHARE "); in Unparse()
2232 Word("!$OMP ATOMIC"); in Unparse()
2243 Word("!$OMP ATOMIC"); in Unparse()
2245 Word(" CAPTURE"); in Unparse()
2253 Word("!$OMP END ATOMIC\n"); in Unparse()
2258 Word("!$OMP ATOMIC"); in Unparse()
2260 Word(" READ"); in Unparse()
2271 Word("!$OMP ATOMIC"); in Unparse()
2273 Word(" UPDATE"); in Unparse()
2284 Word("!$OMP ATOMIC"); in Unparse()
2286 Word(" WRITE"); in Unparse()
2297 Word("!$OMP ALLOCATE"); in Unparse()
2306 Word("!$OMP ALLOCATE"); in Unparse()
2316 Word("!$OMP CRITICAL"); in Unparse()
2324 Word("!$OMP END CRITICAL"); in Unparse()
2338 Word(" INITIALIZER(OMP_PRIV = "); in Unparse()
2364 Word("!$OMP "); in Pre()
2368 Word("ALLOCATE ("); in Pre()
2377 Word("DECLARE REDUCTION "); in Pre()
2381 Word("DECLARE SIMD "); in Pre()
2389 Word("DECLARE TARGET "); in Pre()
2393 Word("THREADPRIVATE ("); in Pre()
2410 Word("SECTIONS "); in Unparse()
2413 Word("PARALLEL SECTIONS "); in Unparse()
2422 Word("!$OMP SECTION"); in Unparse()
2432 Word("!$OMP "); in Unparse()
2438 Word("!$OMP END "); in Unparse()
2445 Word("!$OMP CANCELLATION POINT "); in Unparse()
2452 Word("!$OMP CANCEL "); in Unparse()
2468 Word("!$OMP FLUSH "); in Unparse()
2476 Word("!$OMP END "); in Unparse()
2485 Word("!$OMP "); in Unparse()
2493 Word("!$OMP "); in Unparse()
2499 Word("!$OMP END "); in Unparse()
2506 Word("!$OMP "); in Unparse()
2529 Word("STRUCTURE "); in Unparse()
2535 void Post(const Union::UnionStmt &) { Word("UNION"), Indent(); } in Post()
2536 void Post(const Union::EndUnionStmt &) { Outdent(), Word("END UNION"); } in Post()
2537 void Post(const Map::MapStmt &) { Word("MAP"), Indent(); } in Post()
2538 void Post(const Map::EndMapStmt &) { Outdent(), Word("END MAP"); } in Post()
2540 Outdent(), Word("END STRUCTURE"); in Post()
2543 Word("PARAMETER "), Walk(x.v, ", "); in Unparse()
2546 Word("IF ("), Walk(std::get<Expr>(x.t)), Put(") "); in Unparse()
2552 Word("ASSIGN "), Walk(std::get<Label>(x.t)); in Unparse()
2553 Word(" TO "), Walk(std::get<Name>(x.t)); in Unparse()
2556 Word("GO TO "), Walk(std::get<Name>(x.t)); in Unparse()
2559 void Unparse(const PauseStmt &x) { Word("PAUSE"), Walk(" ", x.v); } in Unparse()
2562 void Unparse(const CLASS::ENUM &x) { Word(CLASS::EnumToString(x)); }
2595 void Word(const char *);
2596 void Word(const std::string &);
2618 Word(prefix), Walk(*x), Word(suffix); in Walk()
2634 Word(str), Walk(x); in Walk()
2637 Word(suffix); in Walk()
2650 Word(separator); // this usage dodges "unused parameter" warning in WalkTupleElements()
2663 Outdent(), Word("END "), Word(kind), Walk(" ", name); in EndSubprogram()
2745 void UnparseVisitor::Word(const char *str) { in Word() function in Fortran::parser::UnparseVisitor
2751 void UnparseVisitor::Word(const std::string &str) { Word(str.c_str()); } in Word() function in Fortran::parser::UnparseVisitor