forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

New Compiler Warnings

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support
View previous topic :: View next topic  
Author Message
EKruck



Joined: 09 Jan 2010
Posts: 224
Location: Aalen, Germany

PostPosted: Mon Mar 28, 2022 10:39 am    Post subject: New Compiler Warnings Reply with quote

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
View user's profile Send private message Visit poster's website
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Mon Mar 28, 2022 10:53 am    Post subject: Reply with quote

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
View user's profile Send private message AIM Address
EKruck



Joined: 09 Jan 2010
Posts: 224
Location: Aalen, Germany

PostPosted: Tue Mar 29, 2022 4:11 pm    Post subject: Reply with quote

Paul,
your example is not good. It does as well not provide the warning on my system.
Erwin
Back to top
View user's profile Send private message Visit poster's website
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Tue Mar 29, 2022 8:54 pm    Post subject: Reply with quote

Erwin

Could you post a sample that illustrates the warning.

Thanks
Back to top
View user's profile Send private message AIM Address
EKruck



Joined: 09 Jan 2010
Posts: 224
Location: Aalen, Germany

PostPosted: Wed Mar 30, 2022 8:02 am    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Wed Mar 30, 2022 8:40 am    Post subject: Reply with quote

Erwin

Ah, yes. I remember it now. This false warning has already been fixed for the next release of TN95.
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group