New Compiler Warnings

I downloaded and installed all files from Sticky: Latest executables and DLLs Now I get about 150 warnings like 0024) FileName = ADJUSTL(CDAT(5: )) WARNING - 1289: Procedure expected for argument CDAT.

25.       CLINE(IPOS:L) = CC
    

WARNING - 1289: Procedure expected for argument CLINE. whenI compile one software package. I cannot recognise real warnings bacause of too many messages

EKruck

I don't get the same warning and this implies that the bug has already been fixed for the next release of FTN95. In the meantime you could use /IGNORE 1289 on the FTN95 command line.

Here is my test code:

character(256) FileName
character(128) CDAT
CDAT = 'abcdefghijk'
FileName = ADJUSTL(CDAT(5:))
print*, FileName
end

Paul, your example is not good. It does as well not provide the warning on my system. Erwin

Erwin

Could you post a sample that illustrates the warning.

Thanks

    SUBROUTINE Draw_Text (dX1, dY1, Text, Rota, nColor)   ! Draw text

    IMPLICIT NONE
!   INCLUDE  <windows.ins>
    REAL*8     dX1, dY1, Rota
    CHARACTER  Text*(*)
    INTEGER    nColor

    INTEGER    IX1, IY1,   IRB_COLORMODE
    INTEGER    LTX
    INTEGER, EXTERNAL :: iPixX, iPixY
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    IRB_COLORMODE = 1
    IX1 = iPixX (dX1)
    IY1 = iPixY (dY1)
    LTX = MAX (1, LEN_TRIM(Text))

    CALL Rotate_Font@ (ROTA)
    CALL Bold_Font@ (irb_ColorMode -1)     ! Blue background-> normal / white background-> bold

    CALL Draw_Characters@ (Text(1:LTX), IX1, IY1, nColor)

    RETURN
    END SUBROUTINE Draw_Text

Erwin

Ah, yes. I remember it now. This false warning has already been fixed for the next release of TN95.