forums.silverfrost.com

Thanks Paul. That solves that query.

Paul,

Where does FTN95 8.66.0 look/expect to find the definition of ISO_FORTRAN_ENV?

program test
use ISO_FORTRAN_ENV
print*, COMPILER_VERSION()
end program test
Compiling and linkin ...

PS: my code runs correctly with the earlier newDLLs50, but not the most recent newDLLs51.

I have taken a quick look at this and I can confirm that Bill's observation of there being a change in the behavior of %`rs

In my case, the problem occurs with the following line, where run_up_time ...

This can be made to work as follows:

PROGRAM Loop
IMPLICIT NONE
INTEGER(KIND=4) i

DO i = HUGE(i)-1, HUGE(i), 1 !STARTVAL, ENDVAL, INC

WRITE(*,*) i
I ...

Paul, I looked at this a bit more last night and this may help. Everything is ok up to and including i = 4294967295

winapp
program bin
implicit none
integer(kind=4)i
integer k
i = 4 ...

There does appear to be an issue. An alternative compiler returns:

-1
1111111111111111111111111111111111111111111111111111111111111111
9223372036854775807
011111111111111 ...

Yes, those are the dlls I am referring to.

John,
Look at the numbers on the x axis in your plot and compare with the one i produced.
Ken

I think this is a consequence of the minor changes that had been made to the native %pl. If you use the latest dlls you get a slightly different plot to the two examples in John's post.

https://ww ...

Dan,

See item 369 of cwplus.enh

This might fix your problem:

iw = SetDpiAwareness@(0)

John, this is a variation on one of the examples for the parallel processing approach. Unlike Gfortran, with FTN95 you cannot simply define a section of code to be executed in parallel. So all seria ...

Suggest you take a look at this video from Paul at Silverfrost which outlines both command line and plato modes of compiling/running programs.

https://www.youtube.com/watch?v=7P8vPlCPxuk

John,

Here is the code for a simple test I've just run. You must explicitly specify a value for width.

!Spectrum test
use clrwin
implicit none
integer, parameter :: dp = kind(1.d ...

Paul,

Thanks for this addition.

Ken