home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p6 / tst / callErr.out.bak < prev    next >
Text File  |  2005-11-18  |  27KB  |  763 lines

  1. #1:   ---------- Body ----------
  2.         lineNumber=7
  3.         typeDecls=
  4. #2:       ---------- TypeDecl ----------
  5.             lineNumber=7
  6.             id="ARR"
  7.             compoundType=
  8. #3:           ---------- ArrayType ----------
  9.                 lineNumber=7
  10.                 elementType=
  11. #4:               ---------- TypeName ----------
  12.                     lineNumber=7
  13.                     id="integer"
  14.                     myDef=NULL
  15.                   ------------------------------
  16.               ------------------------------
  17.           ------------------------------
  18.         procDecls=
  19. #5:       ---------- ProcDecl ----------
  20.             lineNumber=9
  21.             id="f1"
  22.             lexLevel=1
  23.             formals=NULL
  24.             retType=
  25. #6:           ---------- TypeName ----------
  26.                 lineNumber=9
  27.                 id="integer"
  28.                 myDef=NULL
  29.               ------------------------------
  30.             body=
  31. #7:           ---------- Body ----------
  32.                 lineNumber=10
  33.                 typeDecls=NULL
  34.                 procDecls=NULL
  35.                 varDecls=NULL
  36.                 stmts=
  37. #8:               ---------- ReturnStmt ----------
  38.                     lineNumber=10
  39.                     summary= 0
  40.                     expr=
  41. #9:                   ---------- IntegerConst ----------
  42.                         lineNumber=10
  43.                         iValue=0
  44.                       ------------------------------
  45.                     myProc=
  46.                       *****  This node was printed earlier (#5: ProcDecl) *****
  47.                   ------------------------------
  48.               ------------------------------
  49.           ------------------------------
  50. #10:      ---------- ProcDecl ----------
  51.             lineNumber=11
  52.             id="f2"
  53.             lexLevel=1
  54.             formals=NULL
  55.             retType=NULL
  56.             body=
  57. #11:          ---------- Body ----------
  58.                 lineNumber=12
  59.                 typeDecls=NULL
  60.                 procDecls=NULL
  61.                 varDecls=NULL
  62.                 stmts=
  63. #12:              ---------- ReturnStmt ----------
  64.                     lineNumber=12
  65.                     summary= NULL
  66.                     expr=NULL
  67.                     myProc=
  68.                       *****  This node was printed earlier (#10: ProcDecl) *****
  69.                   ------------------------------
  70.               ------------------------------
  71.           ------------------------------
  72. #13:      ---------- ProcDecl ----------
  73.             lineNumber=13
  74.             id="f3"
  75.             lexLevel=1
  76.             formals=NULL
  77.             retType=
  78. #14:          ---------- TypeName ----------
  79.                 lineNumber=13
  80.                 id="real"
  81.                 myDef=NULL
  82.               ------------------------------
  83.             body=
  84. #15:          ---------- Body ----------
  85.                 lineNumber=14
  86.                 typeDecls=NULL
  87.                 procDecls=NULL
  88.                 varDecls=NULL
  89.                 stmts=
  90. #16:              ---------- ReturnStmt ----------
  91.                     lineNumber=14
  92.                     summary= 0.0
  93.                     expr=
  94. #17:                  ---------- RealConst ----------
  95.                         lineNumber=14
  96.                         rValue=0.0
  97.                       ------------------------------
  98.                     myProc=
  99.                       *****  This node was printed earlier (#13: ProcDecl) *****
  100.                   ------------------------------
  101.               ------------------------------
  102.           ------------------------------
  103. #18:      ---------- ProcDecl ----------
  104.             lineNumber=15
  105.             id="f4"
  106.             lexLevel=1
  107.             formals=
  108. #19:          ---------- Formal ----------
  109.                 lineNumber=15
  110.                 id="w"
  111.                 typeName=
  112. #20:              ---------- TypeName ----------
  113.                     lineNumber=15
  114.                     id="integer"
  115.                     myDef=NULL
  116.                   ------------------------------
  117.                 lexLevel=1
  118.               ------------------------------
  119. #21:          ---------- Formal ----------
  120.                 lineNumber=15
  121.                 id="x"
  122.                 typeName=
  123.                   *****  This node was printed earlier (#20: TypeName) *****
  124.                 lexLevel=1
  125.               ------------------------------
  126. #22:          ---------- Formal ----------
  127.                 lineNumber=15
  128.                 id="y"
  129.                 typeName=
  130.                   *****  This node was printed earlier (#20: TypeName) *****
  131.                 lexLevel=1
  132.               ------------------------------
  133. #23:          ---------- Formal ----------
  134.                 lineNumber=15
  135.                 id="z"
  136.                 typeName=
  137.                   *****  This node was printed earlier (#20: TypeName) *****
  138.                 lexLevel=1
  139.               ------------------------------
  140.             retType=NULL
  141.             body=
  142. #24:          ---------- Body ----------
  143.                 lineNumber=16
  144.                 typeDecls=NULL
  145.                 procDecls=NULL
  146.                 varDecls=NULL
  147.                 stmts=
  148. #25:              ---------- ReturnStmt ----------
  149.                     lineNumber=16
  150.                     summary= NULL
  151.                     expr=NULL
  152.                     myProc=
  153.                       *****  This node was printed earlier (#18: ProcDecl) *****
  154.                   ------------------------------
  155.               ------------------------------
  156.           ------------------------------
  157. #26:      ---------- ProcDecl ----------
  158.             lineNumber=17
  159.             id="f5"
  160.             lexLevel=1
  161.             formals=
  162. #27:          ---------- Formal ----------
  163.                 lineNumber=17
  164.                 id="w"
  165.                 typeName=
  166. #28:              ---------- TypeName ----------
  167.                     lineNumber=17
  168.                     id="integer"
  169.                     myDef=NULL
  170.                   ------------------------------
  171.                 lexLevel=1
  172.               ------------------------------
  173. #29:          ---------- Formal ----------
  174.                 lineNumber=17
  175.                 id="x"
  176.                 typeName=
  177.                   *****  This node was printed earlier (#28: TypeName) *****
  178.                 lexLevel=1
  179.               ------------------------------
  180. #30:          ---------- Formal ----------
  181.                 lineNumber=17
  182.                 id="y"
  183.                 typeName=
  184.                   *****  This node was printed earlier (#28: TypeName) *****
  185.                 lexLevel=1
  186.               ------------------------------
  187. #31:          ---------- Formal ----------
  188.                 lineNumber=17
  189.                 id="z"
  190.                 typeName=
  191.                   *****  This node was printed earlier (#28: TypeName) *****
  192.                 lexLevel=1
  193.               ------------------------------
  194.             retType=
  195. #32:          ---------- TypeName ----------
  196.                 lineNumber=17
  197.                 id="integer"
  198.                 myDef=NULL
  199.               ------------------------------
  200.             body=
  201. #33:          ---------- Body ----------
  202.                 lineNumber=18
  203.                 typeDecls=NULL
  204.                 procDecls=NULL
  205.                 varDecls=NULL
  206.                 stmts=
  207. #34:              ---------- ReturnStmt ----------
  208.                     lineNumber=18
  209.                     summary= 0
  210.                     expr=
  211. #35:                  ---------- IntegerConst ----------
  212.                         lineNumber=18
  213.                         iValue=0
  214.                       ------------------------------
  215.                     myProc=
  216.                       *****  This node was printed earlier (#26: ProcDecl) *****
  217.                   ------------------------------
  218.               ------------------------------
  219.           ------------------------------
  220. #36:      ---------- ProcDecl ----------
  221.             lineNumber=19
  222.             id="f6"
  223.             lexLevel=1
  224.             formals=
  225. #37:          ---------- Formal ----------
  226.                 lineNumber=19
  227.                 id="x"
  228.                 typeName=
  229. #38:              ---------- TypeName ----------
  230.                     lineNumber=19
  231.                     id="real"
  232.                     myDef=NULL
  233.                   ------------------------------
  234.                 lexLevel=1
  235.               ------------------------------
  236. #39:          ---------- Formal ----------
  237.                 lineNumber=19
  238.                 id="i"
  239.                 typeName=
  240. #40:              ---------- TypeName ----------
  241.                     lineNumber=19
  242.                     id="integer"
  243.                     myDef=NULL
  244.                   ------------------------------
  245.                 lexLevel=1
  246.               ------------------------------
  247. #41:          ---------- Formal ----------
  248.                 lineNumber=19
  249.                 id="b"
  250.                 typeName=
  251. #42:              ---------- TypeName ----------
  252.                     lineNumber=19
  253.                     id="boolean"
  254.                     myDef=NULL
  255.                   ------------------------------
  256.                 lexLevel=1
  257.               ------------------------------
  258. #43:          ---------- Formal ----------
  259.                 lineNumber=19
  260.                 id="a"
  261.                 typeName=
  262. #44:              ---------- TypeName ----------
  263.                     lineNumber=19
  264.                     id="ARR"
  265.                     myDef=
  266.                       *****  This node was printed earlier (#3: ArrayType) *****
  267.                   ------------------------------
  268.                 lexLevel=1
  269.               ------------------------------
  270.             retType=NULL
  271.             body=
  272. #45:          ---------- Body ----------
  273.                 lineNumber=20
  274.                 typeDecls=NULL
  275.                 procDecls=NULL
  276.                 varDecls=NULL
  277.                 stmts=
  278. #46:              ---------- ReturnStmt ----------
  279.                     lineNumber=20
  280.                     summary= NULL
  281.                     expr=NULL
  282.                     myProc=
  283.                       *****  This node was printed earlier (#36: ProcDecl) *****
  284.                   ------------------------------
  285.               ------------------------------
  286.           ------------------------------
  287. #47:      ---------- ProcDecl ----------
  288.             lineNumber=21
  289.             id="f7"
  290.             lexLevel=1
  291.             formals=
  292. #48:          ---------- Formal ----------
  293.                 lineNumber=21
  294.                 id="x"
  295.                 typeName=
  296. #49:              ---------- TypeName ----------
  297.                     lineNumber=21
  298.                     id="real"
  299.                     myDef=NULL
  300.                   ------------------------------
  301.                 lexLevel=1
  302.               ------------------------------
  303. #50:          ---------- Formal ----------
  304.                 lineNumber=21
  305.                 id="i"
  306.                 typeName=
  307. #51:              ---------- TypeName ----------
  308.                     lineNumber=21
  309.                     id="integer"
  310.                     myDef=NULL
  311.                   ------------------------------
  312.                 lexLevel=1
  313.               ------------------------------
  314. #52:          ---------- Formal ----------
  315.                 lineNumber=21
  316.                 id="b"
  317.                 typeName=
  318. #53:              ---------- TypeName ----------
  319.                     lineNumber=21
  320.                     id="boolean"
  321.                     myDef=NULL
  322.                   ------------------------------
  323.                 lexLevel=1
  324.               ------------------------------
  325. #54:          ---------- Formal ----------
  326.                 lineNumber=21
  327.                 id="a"
  328.                 typeName=
  329. #55:              ---------- TypeName ----------
  330.                     lineNumber=21
  331.                     id="ARR"
  332.                     myDef=
  333.                       *****  This node was printed earlier (#3: ArrayType) *****
  334.                   ------------------------------
  335.                 lexLevel=1
  336.               ------------------------------
  337.             retType=
  338. #56:          ---------- TypeName ----------
  339.                 lineNumber=21
  340.                 id="integer"
  341.                 myDef=NULL
  342.               ------------------------------
  343.             body=
  344. #57:          ---------- Body ----------
  345.                 lineNumber=22
  346.                 typeDecls=NULL
  347.                 procDecls=NULL
  348.                 varDecls=NULL
  349.                 stmts=
  350. #58:              ---------- ReturnStmt ----------
  351.                     lineNumber=22
  352.                     summary= 0
  353.                     expr=
  354. #59:                  ---------- IntegerConst ----------
  355.                         lineNumber=22
  356.                         iValue=0
  357.                       ------------------------------
  358.                     myProc=
  359.                       *****  This node was printed earlier (#47: ProcDecl) *****
  360.                   ------------------------------
  361.               ------------------------------
  362.           ------------------------------
  363.         varDecls=
  364. #60:      ---------- VarDecl ----------
  365.             lineNumber=8
  366.             id="i"
  367.             typeName=
  368. #61:          ---------- TypeName ----------
  369.                 lineNumber=8
  370.                 id="integer"
  371.                 myDef=NULL
  372.               ------------------------------
  373.             expr=
  374. #62:          ---------- IntegerConst ----------
  375.                 lineNumber=8
  376.                 iValue=0
  377.               ------------------------------
  378.             lexLevel=0
  379.           ------------------------------
  380.         stmts=
  381. #63:      ---------- CallStmt ----------
  382.             lineNumber=25
  383.             id="f1"
  384.             args=NULL
  385.             myDef=
  386.               *****  This node was printed earlier (#5: ProcDecl) *****
  387.           ------------------------------
  388. #64:      ---------- AssignStmt ----------
  389.             lineNumber=26
  390.             lValue=
  391. #65:          ---------- Variable ----------
  392.                 lineNumber=26
  393.                 id="i"
  394.                 myDef=
  395.                   *****  This node was printed earlier (#60: VarDecl) *****
  396.                 currentLevel=0
  397.               ------------------------------
  398.             expr=
  399. #66:          ---------- FunctionCall ----------
  400.                 lineNumber=26
  401.                 id="f2"
  402.                 args=NULL
  403.                 myDef=
  404.                   *****  This node was printed earlier (#10: ProcDecl) *****
  405.               ------------------------------
  406.           ------------------------------
  407. #67:      ---------- AssignStmt ----------
  408.             lineNumber=27
  409.             lValue=
  410. #68:          ---------- Variable ----------
  411.                 lineNumber=27
  412.                 id="i"
  413.                 myDef=
  414.                   *****  This node was printed earlier (#60: VarDecl) *****
  415.                 currentLevel=0
  416.               ------------------------------
  417.             expr=
  418. #69:          ---------- FunctionCall ----------
  419.                 lineNumber=27
  420.                 id="f3"
  421.                 args=NULL
  422.                 myDef=
  423.                   *****  This node was printed earlier (#13: ProcDecl) *****
  424.               ------------------------------
  425.           ------------------------------
  426. #70:      ---------- CallStmt ----------
  427.             lineNumber=28
  428.             id="f4"
  429.             args=
  430. #71:          ---------- Argument ----------
  431.                 lineNumber=28
  432.                 expr=
  433. #72:              ---------- IntegerConst ----------
  434.                     lineNumber=28
  435.                     iValue=1
  436.                   ------------------------------
  437.                 mode=0
  438.               ------------------------------
  439. #73:          ---------- Argument ----------
  440.                 lineNumber=28
  441.                 expr=
  442. #74:              ---------- IntegerConst ----------
  443.                     lineNumber=28
  444.                     iValue=2
  445.                   ------------------------------
  446.                 mode=0
  447.               ------------------------------
  448. #75:          ---------- Argument ----------
  449.                 lineNumber=28
  450.                 expr=
  451. #76:              ---------- IntegerConst ----------
  452.                     lineNumber=28
  453.                     iValue=3
  454.                   ------------------------------
  455.                 mode=0
  456.               ------------------------------
  457.             myDef=
  458.               *****  This node was printed earlier (#18: ProcDecl) *****
  459.           ------------------------------
  460. #77:      ---------- CallStmt ----------
  461.             lineNumber=29
  462.             id="f4"
  463.             args=
  464. #78:          ---------- Argument ----------
  465.                 lineNumber=29
  466.                 expr=
  467. #79:              ---------- IntegerConst ----------
  468.                     lineNumber=29
  469.                     iValue=1
  470.                   ------------------------------
  471.                 mode=0
  472.               ------------------------------
  473. #80:          ---------- Argument ----------
  474.                 lineNumber=29
  475.                 expr=
  476. #81:              ---------- IntegerConst ----------
  477.                     lineNumber=29
  478.                     iValue=2
  479.                   ------------------------------
  480.                 mode=0
  481.               ------------------------------
  482. #82:          ---------- Argument ----------
  483.                 lineNumber=29
  484.                 expr=
  485. #83:              ---------- IntegerConst ----------
  486.                     lineNumber=29
  487.                     iValue=3
  488.                   ------------------------------
  489.                 mode=0
  490.               ------------------------------
  491. #84:          ---------- Argument ----------
  492.                 lineNumber=29
  493.                 expr=
  494. #85:              ---------- IntegerConst ----------
  495.                     lineNumber=29
  496.                     iValue=4
  497.                   ------------------------------
  498.                 mode=0
  499.               ------------------------------
  500. #86:          ---------- Argument ----------
  501.                 lineNumber=29
  502.                 expr=
  503. #87:              ---------- IntegerConst ----------
  504.                     lineNumber=29
  505.                     iValue=5
  506.                   ------------------------------
  507.                 mode=0
  508.               ------------------------------
  509.             myDef=
  510.               *****  This node was printed earlier (#18: ProcDecl) *****
  511.           ------------------------------
  512. #88:      ---------- AssignStmt ----------
  513.             lineNumber=30
  514.             lValue=
  515. #89:          ---------- Variable ----------
  516.                 lineNumber=30
  517.                 id="i"
  518.                 myDef=
  519.                   *****  This node was printed earlier (#60: VarDecl) *****
  520.                 currentLevel=0
  521.               ------------------------------
  522.             expr=
  523. #90:          ---------- FunctionCall ----------
  524.                 lineNumber=30
  525.                 id="f5"
  526.                 args=
  527. #91:              ---------- Argument ----------
  528.                     lineNumber=30
  529.                     expr=
  530. #92:                  ---------- IntegerConst ----------
  531.                         lineNumber=30
  532.                         iValue=1
  533.                       ------------------------------
  534.                     mode=0
  535.                   ------------------------------
  536. #93:              ---------- Argument ----------
  537.                     lineNumber=30
  538.                     expr=
  539. #94:                  ---------- IntegerConst ----------
  540.                         lineNumber=30
  541.                         iValue=2
  542.                       ------------------------------
  543.                     mode=0
  544.                   ------------------------------
  545. #95:              ---------- Argument ----------
  546.                     lineNumber=30
  547.                     expr=
  548. #96:                  ---------- IntegerConst ----------
  549.                         lineNumber=30
  550.                         iValue=3
  551.                       ------------------------------
  552.                     mode=0
  553.                   ------------------------------
  554.                 myDef=
  555.                   *****  This node was printed earlier (#26: ProcDecl) *****
  556.               ------------------------------
  557.           ------------------------------
  558. #97:      ---------- AssignStmt ----------
  559.             lineNumber=31
  560.             lValue=
  561. #98:          ---------- Variable ----------
  562.                 lineNumber=31
  563.                 id="i"
  564.                 myDef=
  565.                   *****  This node was printed earlier (#60: VarDecl) *****
  566.                 currentLevel=0
  567.               ------------------------------
  568.             expr=
  569. #99:          ---------- FunctionCall ----------
  570.                 lineNumber=31
  571.                 id="f5"
  572.                 args=
  573. #100:             ---------- Argument ----------
  574.                     lineNumber=31
  575.                     expr=
  576. #101:                 ---------- IntegerConst ----------
  577.                         lineNumber=31
  578.                         iValue=1
  579.                       ------------------------------
  580.                     mode=0
  581.                   ------------------------------
  582. #102:             ---------- Argument ----------
  583.                     lineNumber=31
  584.                     expr=
  585. #103:                 ---------- IntegerConst ----------
  586.                         lineNumber=31
  587.                         iValue=2
  588.                       ------------------------------
  589.                     mode=0
  590.                   ------------------------------
  591. #104:             ---------- Argument ----------
  592.                     lineNumber=31
  593.                     expr=
  594. #105:                 ---------- IntegerConst ----------
  595.                         lineNumber=31
  596.                         iValue=3
  597.                       ------------------------------
  598.                     mode=0
  599.                   ------------------------------
  600. #106:             ---------- Argument ----------
  601.                     lineNumber=31
  602.                     expr=
  603. #107:                 ---------- IntegerConst ----------
  604.                         lineNumber=31
  605.                         iValue=4
  606.                       ------------------------------
  607.                     mode=0
  608.                   ------------------------------
  609. #108:             ---------- Argument ----------
  610.                     lineNumber=31
  611.                     expr=
  612. #109:                 ---------- IntegerConst ----------
  613.                         lineNumber=31
  614.                         iValue=5
  615.                       ------------------------------
  616.                     mode=0
  617.                   ------------------------------
  618.                 myDef=
  619.                   *****  This node was printed earlier (#26: ProcDecl) *****
  620.               ------------------------------
  621.           ------------------------------
  622. #110:     ---------- CallStmt ----------
  623.             lineNumber=32
  624.             id="f6"
  625.             args=
  626. #111:         ---------- Argument ----------
  627.                 lineNumber=32
  628.                 expr=
  629. #112:             ---------- BooleanConst ----------
  630.                     lineNumber=32
  631.                     iValue=1
  632.                   ------------------------------
  633.                 mode=0
  634.               ------------------------------
  635. #113:         ---------- Argument ----------
  636.                 lineNumber=32
  637.                 expr=
  638. #114:             ---------- RealConst ----------
  639.                     lineNumber=32
  640.                     rValue=1.1
  641.                   ------------------------------
  642.                 mode=0
  643.               ------------------------------
  644. #115:         ---------- Argument ----------
  645.                 lineNumber=32
  646.                 expr=
  647. #116:             ---------- NilConst ----------
  648.                     lineNumber=32
  649.                   ------------------------------
  650.                 mode=0
  651.               ------------------------------
  652. #117:         ---------- Argument ----------
  653.                 lineNumber=32
  654.                 expr=
  655. #118:             ---------- IntegerConst ----------
  656.                     lineNumber=32
  657.                     iValue=1
  658.                   ------------------------------
  659.                 mode=0
  660.               ------------------------------
  661.             myDef=
  662.               *****  This node was printed earlier (#36: ProcDecl) *****
  663.           ------------------------------
  664. #119:     ---------- AssignStmt ----------
  665.             lineNumber=33
  666.             lValue=
  667. #120:         ---------- Variable ----------
  668.                 lineNumber=33
  669.                 id="i"
  670.                 myDef=
  671.                   *****  This node was printed earlier (#60: VarDecl) *****
  672.                 currentLevel=0
  673.               ------------------------------
  674.             expr=
  675. #121:         ---------- FunctionCall ----------
  676.                 lineNumber=33
  677.                 id="f7"
  678.                 args=
  679. #122:             ---------- Argument ----------
  680.                     lineNumber=33
  681.                     expr=
  682. #123:                 ---------- BooleanConst ----------
  683.                         lineNumber=33
  684.                         iValue=1
  685.                       ------------------------------
  686.                     mode=0
  687.                   ------------------------------
  688. #124:             ---------- Argument ----------
  689.                     lineNumber=33
  690.                     expr=
  691. #125:                 ---------- RealConst ----------
  692.                         lineNumber=33
  693.                         rValue=1.1
  694.                       ------------------------------
  695.                     mode=0
  696.                   ------------------------------
  697. #126:             ---------- Argument ----------
  698.                     lineNumber=33
  699.                     expr=
  700. #127:                 ---------- NilConst ----------
  701.                         lineNumber=33
  702.                       ------------------------------
  703.                     mode=0
  704.                   ------------------------------
  705. #128:             ---------- Argument ----------
  706.                     lineNumber=33
  707.                     expr=
  708. #129:                 ---------- IntegerConst ----------
  709.                         lineNumber=33
  710.                         iValue=1
  711.                       ------------------------------
  712.                     mode=0
  713.                   ------------------------------
  714.                 myDef=
  715.                   *****  This node was printed earlier (#47: ProcDecl) *****
  716.               ------------------------------
  717.           ------------------------------
  718.       ------------------------------
  719. PROGRAM IS
  720.     TYPE
  721.         ARR IS ARRAY OF integer;
  722.     VAR
  723.         i: integer := 0;
  724.     PROCEDURE f1 () : integer IS
  725.         BEGIN
  726.             RETURN 0;
  727.         END;
  728.     PROCEDURE f2 () IS
  729.         BEGIN
  730.             RETURN;
  731.         END;
  732.     PROCEDURE f3 () : real IS
  733.         BEGIN
  734.             RETURN 0.0;
  735.         END;
  736.     PROCEDURE f4 (w: integer; x: integer; y: integer; z: integer) IS
  737.         BEGIN
  738.             RETURN;
  739.         END;
  740.     PROCEDURE f5 (w: integer; x: integer; y: integer; z: integer) : integer IS
  741.         BEGIN
  742.             RETURN 0;
  743.         END;
  744.     PROCEDURE f6 (x: real; i: integer; b: boolean; a: ARR) IS
  745.         BEGIN
  746.             RETURN;
  747.         END;
  748.     PROCEDURE f7 (x: real; i: integer; b: boolean; a: ARR) : integer IS
  749.         BEGIN
  750.             RETURN 0;
  751.         END;
  752.     BEGIN
  753.         f1 ();
  754.         i := f2 ();
  755.         i := f3 ();
  756.         f4 (1, 2, 3);
  757.         f4 (1, 2, 3, 4, 5);
  758.         i := f5 (1, 2, 3);
  759.         i := f5 (1, 2, 3, 4, 5);
  760.         f6 (TRUE, 1.1, NIL, 1);
  761.         i := f7 (TRUE, 1.1, NIL, 1);
  762.     END;
  763.