[
Date Prev][
Date Next][
Thread Prev][
Thread Next][
Date Index][
Thread Index]
[
List Home]
|
[photran] Outline Error with / format descriptor
|
Hi-
There is an error with the outline parser with respect to the / format
descriptor. In any file that contains any of the three character pairs
'(/', '//', or '/)' which are common in vintage fortran routines inside
the format statements, the outline parser displays a skull and
crossbones with the message -1. In beta 2 it contained an error
message.
Attached is a very small program that illustrates the problem:
PROGRAM TstFmts
! This program contains snippets of code that may cause the photran
! outline parser grief. The program provides no useful function.
IMPLICIT NONE
WRITE (6, 148)
WRITE (6, 149)
WRITE (6, 150)
148 FORMAT (/ ' *TestForBackup* Backup due to too large a
fractional ', 'change in core power.' / )
149 FORMAT ( / ' *TestForBackup* Backup due to too large a
fractional ', 'change in core power.' /)
150 FORMAT ( / ' *TestForBackup* Backup due to too large a
fractional change in core power.', // )
END PROGRAM
BTW the new editor is much faster!
-Russ Johns
PROGRAM TstFmts
! This program contains snippets of code that may cause the photran outline parser grief
! The program provides no useful function.
IMPLICIT NONE
WRITE (6, 148)
WRITE (6, 149)
WRITE (6, 150)
148 FORMAT (/ ' *TestForBackup* Backup due to too large a fractional ', 'change in core power.' / )
149 FORMAT ( / ' *TestForBackup* Backup due to too large a fractional ', 'change in core power.' /)
150 FORMAT ( / ' *TestForBackup* Backup due to too large a fractional change in core power.', // )
END PROGRAM
