On 25.01.22 21:56, FX via Fortran wrote:
What I wonder is: if those conditions failed, then the struct they define
should have been empty, and therefore the code shouldn’t compile anyway (that
was the intent).
Wouldn't it make more sense to add '#else' / '#error ""' in that case?
Tobias
On Wed, Jan 26, 2022 at 11:47:27AM +0100, Tobias Burnus wrote:
> On 25.01.22 21:56, FX via Fortran wrote:
> > What I wonder is: if those conditions failed, then the struct they define
> > should have been empty, and therefore the code shouldn’t compile anyway
> > (that was the intent).
>
> Would
> AFAICT, the first condition does not fail due to the missing
> trailing underscores.
>
> #if __FLOAT_WORD_ORDER == __BIG_ENDIAN
>
> becomes (I believe)
>
> #if 0 == 0
>
> so FreeBSD was using big endian in FX's issignaling_fallback
> when it needed little endian.
Yeah that makes total sense.
Dear Fortranners,
the use of -fdefault-integer-8 exhibits several cases where
we missed to convert the result of an intrinsic from the
declared to the effective resulting type.
The attached obvious patch fixes this for IMAGE_STATUS,
TEAM_NUMBER, and POPCNT/POPPAR.
OK for mainline if regtesting p
Is there any reason these patches can not be applied and use this test
as a test case?
Regards,
Jerry
On 1/24/22 8:11 AM, Salvatore Filippone via Fortran wrote:
Thanks a lot
(yes, I suspected both gfortran and intel were wrong, precisely because I
could see why you'd need two FINAL calls, but
Hi Jerry,
I am trying to fix the failure of my latest patch with this very test case.
Otherwise it fixes most of the remaining dependencies in PR37336.
At a pinch, I could submit the earlier patch that Andrew mentions and work
from there. However, you will note that it does miss one of the
finali
One more data point: Cray FTN issues TWO calls to the FINAL.
Which begs the question: what is the correct number of calls one, two or
three?
Salvatore
fsalvato@daint102:/project/prce01/fsalvato/NUMERICAL/PSBLAS/V4/psblas4/test/newstuff>
ftn --version
Cray Fortran : Version 11.0.0
fsalvato@daint102
