replica nfl jerseysreplica nfl jerseyssoccer jerseyreplica nfl jerseys forums.silverfrost.com :: View topic - STOP [message] with WINAPP and /64
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 

STOP [message] with WINAPP and /64

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



Joined: 18 May 2012
Posts: 799
Location: Hamilton, Lanarkshire, Scotland.

PostPosted: Fri Apr 07, 2023 2:01 pm    Post subject: STOP [message] with WINAPP and /64 Reply with quote

I was testing a function routine this morning which should STOP the program (after issuing the error message associated with STOP) if there is a problem with the supplied function arguments.

With the 64 bit compiler and the winapp directive, the program executes the STOP statement, but does not print the desired error message.

Code:
winapp
print*, 'Without this print statement nothing is output to the winapp window under X64'
stop 'Something has gone wrong'
end
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


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

PostPosted: Sat Apr 08, 2023 8:16 am    Post subject: Reply with quote

Thanks Ken. This has now been fixed for the next release of Clearwin64.dll.
Back to top
View user's profile Send private message AIM Address
simon



Joined: 05 Jul 2006
Posts: 297

PostPosted: Thu Mar 06, 2025 1:54 am    Post subject: Reply with quote

Whether or not I use WINAPP, I get a message with x64 indicating:
Quote:
**** STOP:

at the end of the program, which I do not get with Win32. Is there a way to prevent this output?
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


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

PostPosted: Thu Mar 06, 2025 7:54 am    Post subject: Reply with quote

I think that this probably needs to be made more consistent for a blank message.

In the mean time you could CALL exit(0).
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