View previous topic :: View next topic |
Author |
Message |
EKruck
Joined: 09 Jan 2010 Posts: 224 Location: Aalen, Germany
|
Posted: Mon Mar 28, 2022 10:39 am Post subject: 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.
0025) 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 |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Mon Mar 28, 2022 10:53 am Post subject: |
|
|
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:
Code: | character(256) FileName
character(128) CDAT
CDAT = "abcdefghijk"
FileName = ADJUSTL(CDAT(5:))
print*, FileName
end |
|
|
Back to top |
|
|
EKruck
Joined: 09 Jan 2010 Posts: 224 Location: Aalen, Germany
|
Posted: Tue Mar 29, 2022 4:11 pm Post subject: |
|
|
Paul,
your example is not good. It does as well not provide the warning on my system.
Erwin |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Tue Mar 29, 2022 8:54 pm Post subject: |
|
|
Erwin
Could you post a sample that illustrates the warning.
Thanks |
|
Back to top |
|
|
EKruck
Joined: 09 Jan 2010 Posts: 224 Location: Aalen, Germany
|
Posted: Wed Mar 30, 2022 8:02 am Post subject: |
|
|
Code: |
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
|
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Wed Mar 30, 2022 8:40 am Post subject: |
|
|
Erwin
Ah, yes. I remember it now. This false warning has already been fixed for the next release of TN95. |
|
Back to top |
|
|
|