947.f fails on big endian systems - but for the wrong reason.

[Toon Moene]

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)