HP 3000 Manuals HP 3000 Manuals
SYMTABLE Directive
The SYMTABLE directive, included for compatibility with programs in
earlier versions of FORTRAN, is the same as the TABLES directive. The
symbol table information is printed even if an error occurs at compile
time.
Syntax
$SYMTABLE [ON ]
[OFF]
Default Off.
Location The SYMTABLE directive must precede any
nondirective statements in a program unit.
Toggling/ Duration Cannot be toggled after the appearance of
nondirective statements in a program unit.
Example
0 1 $SYMTABLE ON
1 2 PROGRAM TEST
2 3 INTEGER I,J(20)
3 4 CHARACTER*30 NAME
4 5 COMMON /COM1/ I
5 6 NAME = 'JOE SMITH'
6 7 DO 100 ,I=1,20
7 8 1 J(I) = I
8 9 1 100 CONTINUE
9 10 CALL ROUTINE1
10 11 END
0 12
Name Class Type Offset Location
---- ----- ---- ------ --------
/COM/ Common
I Variable Integer*4 COM+0 /COM1/
J Array (1 Dim) Integer*4 SP -160 Local
NAME Variable Character*30 SP -80 Local
routine1 Subroutine
test Program
100 Stmt Label Executable 8
1 13 SUBROUTINE ROUTINE1
2 14 WRITE(6,*) 'END OF TEST'
3 15 END
Name Class Type Offset Location
---- ----- ---- ------ --------
routine1 Subroutine
NUMBER OF ERRORS = 0 NUMBER OF WARNINGS = 0