Lines Matching refs:construct

29 TYPE_PARSER(construct<BOZLiteralConstant>(BOZLiteral{}))
33     construct<ArrayConstructor>(
37 TYPE_PARSER(construct<AcSpec>(maybe(typeSpec / "::"),
40     construct<AcSpec>(typeSpec / "::"))
47         construct<AcValue>(construct<AcValue::Triplet>(scalarIntExpr,
49     construct<AcValue>(indirect(expr)) ||
50     construct<AcValue>(indirect(Parser<AcImpliedDo>{})))
54     construct<AcImpliedDo>(nonemptyList(Parser<AcValue>{} / lookAhead(","_tok)),
61 TYPE_PARSER(construct<AcImpliedDoControl>(
71     first(construct<Expr>(indirect(charLiteralConstantSubstring)),
72         construct<Expr>(literalConstant),
73         construct<Expr>(construct<Expr::Parentheses>("(" >>
75         construct<Expr>(indirect(functionReference) / !"("_tok / !"%"_tok),
76         construct<Expr>(designator / !"("_tok / !"%"_tok),
77         construct<Expr>(indirect(Parser<SubstringInquiry>{})), // %LEN or %KIND
78         construct<Expr>(Parser<StructureConstructor>{}),
79         construct<Expr>(Parser<ArrayConstructor>{}),
81         construct<Expr>(parenthesized(
82             construct<Expr::ComplexConstructor>(expr, "," >> expr))),
85             construct<Expr>("%LOC" >> parenthesized(construct<Expr::PercentLoc>(
92     construct<Expr>(construct<Expr::DefinedUnary>(definedOpName, primary)))};
111         construct<Expr>(
112             construct<Expr::UnaryPlus>("+" >> standardMultOperand))) ||
115         construct<Expr>(construct<Expr::Negate>("-" >> standardMultOperand)))};
173             construct<Expr>(construct<Expr::UnaryPlus>("+" >> addOperand)) ||
174             construct<Expr>(construct<Expr::Negate>("-" >> addOperand))) ||
420     space >> construct<DefinedOpName>(sourced("."_ch >>
421                  some(definedOpNameChar) >> construct<Name>() / "."_ch)))
424 TYPE_PARSER(construct<SpecificationExpr>(scalarIntExpr))
428     construct<AssignmentStmt>(variable / "=", expr))
444     construct<PointerAssignmentStmt>(dataRef,
446         construct<PointerAssignmentStmt>(dataRef,
451 TYPE_PARSER(construct<BoundsSpec>(boundExpr / ":"))
454 TYPE_PARSER(construct<BoundsRemapping>(boundExpr / ":", boundExpr))
458 TYPE_PARSER(construct<ProcComponentRef>(structureComponent))
464     construct<WhereStmt>("WHERE" >> parenthesized(logicalExpr), assignmentStmt))
466 // R1042 where-construct ->
467 //         where-construct-stmt [where-body-construct]...
468 //         [masked-elsewhere-stmt [where-body-construct]...]...
469 //         [elsewhere-stmt [where-body-construct]...] end-where-stmt
470 TYPE_CONTEXT_PARSER("WHERE construct"_en_US,
471     construct<WhereConstruct>(statement(Parser<WhereConstructStmt>{}),
473         many(construct<WhereConstruct::MaskedElsewhere>(
476         maybe(construct<WhereConstruct::Elsewhere>(
480 // R1043 where-construct-stmt -> [where-construct-name :] WHERE ( mask-expr )
481 TYPE_CONTEXT_PARSER("WHERE construct statement"_en_US,
482     construct<WhereConstructStmt>(
485 // R1044 where-body-construct ->
486 //         where-assignment-stmt | where-stmt | where-construct
487 TYPE_PARSER(construct<WhereBodyConstruct>(statement(assignmentStmt)) ||
488     construct<WhereBodyConstruct>(statement(whereStmt)) ||
489     construct<WhereBodyConstruct>(indirect(whereConstruct)))
492 //         ELSEWHERE ( mask-expr ) [where-construct-name]
494     construct<MaskedElsewhereStmt>(
497 // R1048 elsewhere-stmt -> ELSEWHERE [where-construct-name]
499     construct<ElsewhereStmt>("ELSE WHERE" >> maybe(name)))
501 // R1049 end-where-stmt -> ENDWHERE [where-construct-name]
503     construct<EndWhereStmt>(recovery(
506 // R1050 forall-construct ->
507 //         forall-construct-stmt [forall-body-construct]... end-forall-stmt
508 TYPE_CONTEXT_PARSER("FORALL construct"_en_US,
509     construct<ForallConstruct>(statement(Parser<ForallConstructStmt>{}),
513 // R1051 forall-construct-stmt ->
514 //         [forall-construct-name :] FORALL concurrent-header
515 TYPE_CONTEXT_PARSER("FORALL construct statement"_en_US,
516     construct<ForallConstructStmt>(
519 // R1052 forall-body-construct ->
520 //         forall-assignment-stmt | where-stmt | where-construct |
521 //         forall-construct | forall-stmt
522 TYPE_PARSER(construct<ForallBodyConstruct>(statement(forallAssignmentStmt)) ||
523     construct<ForallBodyConstruct>(statement(whereStmt)) ||
524     construct<ForallBodyConstruct>(whereConstruct) ||
525     construct<ForallBodyConstruct>(indirect(forallConstruct)) ||
526     construct<ForallBodyConstruct>(statement(forallStmt)))
529 TYPE_PARSER(construct<ForallAssignmentStmt>(assignmentStmt) ||
530     construct<ForallAssignmentStmt>(pointerAssignmentStmt))
532 // R1054 end-forall-stmt -> END FORALL [forall-construct-name]
534     construct<EndForallStmt>(recovery(
539     construct<ForallStmt>("FORALL" >> indirect(concurrentHeader),