fpt and WinFPT Reference Manual - Command-line Commands
| SimCon Home | Ref Manual Home |
SHOW UNUSED LABELS
Syntax:
[DO NOT] SHOW UNUSED LABELS
Function:
FPT lists the statement labels which are unused. For each unused label, fpt reports the file and line on which it occurs and prints the line.
The interactive display may be stopped by the command STOP, which is made to the Page> prompt.
Where to use these commands:
| Operating system command line | Yes |
| Configuration file, config.fsp | Yes |
| Specification (fsp) files, *.fsp | Yes |
| Interactively, to FPT> prompt | Yes |
| Interactive command files | Yes |
| Embedded in the Fortran code | No |
Example:
A section of an unused label listing is shown below.
FPT> show unused labels Unused labels ============= Line: 140, File: r:\trek7\original_source\treka.for 890 DO 128 i=1,4 Line: 229, File: r:\trek7\original_source\treka.for 24 FORMAT (F) Line: 412, File: r:\trek7\original_source\treka.for 338 IF (ichoe(it) .NE. 1) GOTO 129 Line: 475, File: r:\trek7\original_source\treka.for 23311 CALL atack Line: 527, File: r:\trek7\original_source\treka.for 546 DO 762 i=1,8 Line: 598, File: r:\trek7\original_source\treka.for 4 temp=FLOAT(MOD(itom,100))/100.0 Line: 659, File: r:\trek7\original_source\treka.for 21 na=map(i7,i8) Line: 44, File: r:\trek7\original_source\trekb.for 24 FORMAT (F) Line: 45, File: r:\trek7\original_source\trekb.for 151 IF (warp(it) .GT. twarp(it) .OR. warp(it) .LT. 0) GOTO 6581 Line: 140, File: r:\trek7\original_source\trekb.for 75 WRITE (l,72)(ibolt(i,js),i=1,4) Line: 149, File: r:\trek7\original_source\trekb.for 73 FORMAT (' YOU HAVE',I3,1X,4A4/' ENTER ANGLE: ') Line: 150, File: r:\trek7\original_source\trekb.for 77 READ (l,*,ERR=130)angle(it) Line: 151, File: r:\trek7\original_source\trekb.for 24 FORMAT (F) Page>
Copyright ©1995 to 2025 Software Validation Ltd. All rights reserved.