View previous topic :: View next topic |
Author |
Message |
Kenneth_Smith
Joined: 18 May 2012 Posts: 799 Location: Hamilton, Lanarkshire, Scotland.
|
Posted: Fri Apr 07, 2023 2:01 pm Post subject: STOP [message] with WINAPP and /64 |
|
|
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 |
|
 |
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 8174 Location: Salford, UK
|
Posted: Sat Apr 08, 2023 8:16 am Post subject: |
|
|
Thanks Ken. This has now been fixed for the next release of Clearwin64.dll. |
|
Back to top |
|
 |
simon
Joined: 05 Jul 2006 Posts: 297
|
Posted: Thu Mar 06, 2025 1:54 am Post subject: |
|
|
Whether or not I use WINAPP, I get a message with x64 indicating:
at the end of the program, which I do not get with Win32. Is there a way to prevent this output? |
|
Back to top |
|
 |
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 8174 Location: Salford, UK
|
Posted: Thu Mar 06, 2025 7:54 am Post subject: |
|
|
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 |
|
 |
|