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