Warning 298

    SUBROUTINE TestInquire (NFIL)
    IMPLICIT NONE
    INTEGER, INTENT(IN) :: NFIL
    INTEGER  MXSAL, LP

!!    MXSAL = 0
    INQUIRE (UNIT= NFIL, RECL= MXSAL)

    LP = MXSAL+1
    LP = LP
    RETURN
    END

Why does this code provide warnig 298 Variable MXSAL has been used without being given an initial value? If I change UNIT= NFIL against e.g. FILE= 'xx.dat', I get the same warning.

It's because ! signifies 'Comment', and you commented out the assignment statement ...

Litus,

this is unqualified response! MXSAL = 0 should not be necessary.

It is bug in FTN95 and I have made a note that it needs fixing.

John,

in this case the variable MXSAL shoul be initialized by INQUIRE !

Erwin

This has now been fixed for the next release.