This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
RE: 947.f fails on big endian systems - but for the wrong reason.
- From: "Billinghurst, David (CRTS)" <David dot Billinghurst at riotinto dot com>
- To: "Toon Moene" <toon at moene dot indiv dot nluug dot nl>,<gcc-bugs at gcc dot gnu dot org>
- Date: Tue, 12 Feb 2002 12:16:43 +1100
- Subject: RE: 947.f fails on big endian systems - but for the wrong reason.
The original test fails on irix. With this test I get
-mabi=n32
-5. 0. 0. 0. -1. 0. 1. 0. 0. 0. 5.
-mabi=64
-5. 0. 0. 0. -1. 0. 1. 0. 0. 0. 5.
-----Original Message-----
From: Toon Moene [mailto:toon@moene.indiv.nluug.nl]
Sent: Tuesday, 12 February 2002 11:37
To: gcc-bugs@gcc.gnu.org
Subject: 947.f fails on big endian systems - but for the wrong reason.
L.S.,
On powerpc-unknown-linux-gnu, I created the following variant of 947.f:
$ cat 947-1.f
DIMENSION A(-5:5)
INTEGER*1 IM5, IZ, IP5
INTEGER*2 IM1, IP1
PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
DATA A(IM5) /-5./, A(IM1) /-1./
DATA A(IZ) /0./
DATA A(IP5) /+5./, A(IP1) /+1./
PRINT*,A
END
$ /usr/snp/bin/g77 947-1.f
$ ./a.out
-5. 0. 0. 0. -1. 0. 1. 0. 0. 0. 5.
Looks OK to me. Further refinement of this routine showed that the some
of the conditions in the original 947.f turned out to be incorrect.
Could some of the other big-endian system testers try this ?
Thanks in advance,
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
Join GNU Fortran 95: http://g95.sourceforge.net/ (under construction)