HP 3000 Manuals HP 3000 Manuals
Listing Format
The following is an example of the compiler listing format with symbol
table generation specified. On the left side of the compiler listing,
there are three columns of numbers:
* Column one lists the statement numbers
* Column two lists the line numbers
* Column three lists the nesting level numbers
PAGE 1 HEWLETT-PACKARD HP31501A.00.01
HP FORTRAN 77 (C) HEWLETT-PACKARD CO. 1987 THURS, JAN 1, 1987, 12:01 PM
0 1 $TABLES
1 2 PROGRAM fibonacci
1 3
2 4 INTEGER*4 count, fibs, i, j, k
2 5
3 6 100 WRITE(6,10)
4 7 READ(5,*) fibs
5 8 IF (fibs .LT. 1) THEN
6 9 1 WRITE(6,20)
7 10 1 GOTO 100
8 11 1 ENDIF
9 12 i = 0
10 13 j = 1
11 14 k = 1
12 15 count = 1
13 16 DO WHILE (count .LE. fibs)
14 17 1 WRITE(6,30) count, k
15 18 1 i = j
16 19 1 j = k
17 20 1 k = i + j
18 21 1 count = count + 1
19 22 1 END DO
20 23 10 FORMAT (' How many Fibonacci numbers would you like?')
21 24 20 FORMAT (' Sorry, number must be greater than zero.')
22 25 30 FORMAT (' Fibonacci number ',I4,' is ',I4)
23 26 END
Name Class Type Offset Location
---- ----- ---- ------ --------
COUNT Variable Integer*4 SP -72 Local
fibonacci Program
FIBS Variable Integer*4 SP -68 Local
I Variable Integer*4 SP -64 Local
J Variable Integer*4 SP -60 Local
K Variable Integer*4 SP -56 Local
10 Stmt Label Format 20
20 Stmt Label Format 21
30 Stmt Label Format 22
100 Stmt Label Executable 3
NUMBER OF ERRORS = 0 NUMBER OF WARNINGS = 0
PROCESSOR TIME 0: 0: 4 ELAPSED TIME 0: 0:45
NUMBER OF LINES = 26