Print Statement Error.

[adityaiitd]

Hi Guys,

I am trying to migrate a GECOS (BULL SYSTEM) FORTRAN77 Code to Windows.I am using the Intel VF 9.1 compiler.

I am facing this peculiar error regarding the PRINT statement throught the code.

Pls help.

Piece of Code:

PRINT," TYPE 40-CHARACTER LABEL:"

READ(05,1070)COMMENT

PRINT," DO YOU WANT TO CHANGE THE WELD PARAMETERS (Y/N)?"

READ(05,1060)IFWELD ; IF(IFWELD.NE."Y")GO TO 20

PRINT," TYPE TRAILING EDGE WELD LENGTH (E1):"

READ(05,1060)E1

Error at each PRINT statement :

Error: Syntax error, found ',' when expecting one of: ( * ...

Thanks,
-Aditya

[Les_Neilson]

Aditya
simply replace print, with print *,

Les

[ArturGuzik]

Quoting - adityaiitd

PRINT," TYPE 40-CHARACTER LABEL:"

the error info is pretty clear.

syntax

PRINT *[, io-list]

or

PRINT form[, io-list]

so if you print to console you need PRINT *, " TYPE 40-CHARACTER LABEL:"

A.

__________________

(edit)
It looks as if I replied with Les at the very same time.

[adityaiitd]

Quoting - ArturGuzik

the error info is pretty clear.

syntax

PRINT *[, io-list]

or

PRINT form[, io-list]

so if you print to console you need PRINT *, " TYPE 40-CHARACTER LABEL:"

A.

__________________

(edit)
It looks as if I replied with Les at the very same time.

Thank you . I have also one more compilation error.

Code :

1060 FORMAT(V)

Error :

Error: This character is not valid in a format list.

Pls help.

-Aditya

[ArturGuzik]

Because is not valid. Valid data descriptors are: I, B, O, Z, F, E, EN, ES, D, G, L, and A. Please refer to Help files for details. What kind of data (real, integers, ....) you want to print?

A.

[Les_Neilson]

Quoting - adityaiitd

1060 FORMAT(V)Error :

Error: This character is not valid in a format list.

You need to look at the documentation for the GECOS compiler to find out what FORMAT(V) does (it would appear to be an extention to Fortran 77 for that compiler)

Les

[TimP]

Quoting - Les Neilson

You need to look at the documentation for the GECOS compiler to find out what FORMAT(V) does (it would appear to be an extention to Fortran 77 for that compiler)

Les

format(v) presumably stood for f66 extended list directed (fmt=* in f77). The eras are mixed up here. The spelling GECOS antedated the transfer of GE systems to Honeywell, which preceded the partnership with Bull. When I last used a GCOS system, in 1985, the almost-f77 compiler was still not yet fully supported.
These non-standard usages were precursors of f77.

I have my GECOS f66 manual (Fortran IV, 2nd edition, 1966) in front of me. It quotes liberally from IBM Fortran IV 1963 manual.