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 / p10 / tst / read.out.bak < prev    next >
Text File  |  2006-02-17  |  1KB  |  55 lines
  1. PROGRAM IS
  2.     VAR
  3.         i: integer := 0;
  4.         j: integer := i;
  5.         k: integer := i;
  6.         x: real := 0.0;
  7.         y: real := x;
  8.         z: real := x;
  9.     BEGIN
  10.         READ (i);
  11.         READ (x);
  12.         READ (i, x, j, y, k, z);
  13.     END;
  14. maxLexicalLevel = 0
  15. =====  String List Follows  =====
  16. =====  Float List Follows  =====
  17.    float1:  0.0
  18. =====  Intermediate Code Follows  =====
  19. ! MAIN...
  20.                 mainEntry
  21. ! VAR INITIALIZATION...
  22.                 i := 0
  23. ! VAR INITIALIZATION...
  24.                 j := i
  25. ! VAR INITIALIZATION...
  26.                 k := i
  27. ! VAR INITIALIZATION...
  28.                 x := 0.0
  29. ! VAR INITIALIZATION...
  30.                 y := x
  31. ! VAR INITIALIZATION...
  32.                 z := x
  33. ! READ STMT...
  34.                 t1 := &i
  35.                 readInt t1
  36. ! READ STMT...
  37.                 t2 := &x
  38.                 readFloat t2
  39. ! READ STMT...
  40.                 t3 := &i
  41.                 readInt t3
  42.                 t4 := &x
  43.                 readFloat t4
  44.                 t5 := &j
  45.                 readInt t5
  46.                 t6 := &y
  47.                 readFloat t6
  48.                 t7 := &k
  49.                 readInt t7
  50.                 t8 := &z
  51.                 readFloat t8
  52. ! MAIN EXIT...
  53.                 mainExit
  54. =======================================
  55.