This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Fix for typos in gfortran.dg/boz_15.f90
- From: dominiq at lps dot ens dot fr (Dominique Dhumieres)
- To: fortran at gcc dot gnu dot org
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Mon, 14 Dec 2009 11:15:16 +0100
- Subject: Fix for typos in gfortran.dg/boz_15.f90
The test gfortran.dg/boz_15.f90 fails on powerpc*-*-* in 64 bit mode due
to obvious typos (126 instead of 128 and 255 instead of 256, see
http://gcc.gnu.org/ml/gcc-testresults/2009-12/msg01164.html).
This is fixed by the following patch. OK for trunk? If yes, please commit
(I don't have the rights to do it myself).
Dominique
gcc/testsuite/
2009-12-14 Dominique d'Humieres <dominiq@lps.ens.fr>
* gfortran.dg/boz_15.f90: Fix typos.
--- /opt/gcc/_gcc_clean/gcc/testsuite/gfortran.dg/boz_15.f90 2009-12-10 17:40:41.000000000 +0100
+++ /opt/gcc/gcc-4.5-work/gcc/testsuite/gfortran.dg/boz_15.f90 2009-12-13 13:09:47.000000000 +0100
@@ -8,7 +8,7 @@
! which needs integer(16) support.
!
implicit none
-character(len=255) :: str
+character(len=256) :: str
integer,parameter :: xp = selected_real_kind (precision (0.0d0)+1)
real(xp) :: r1,r2
complex(xp) :: z1,z2
@@ -16,8 +16,8 @@ complex(xp) :: z1,z2
r2 = 5.0_xp
r1 = 2.0_xp
! Real B(OZ)
-write(str,'(b126)') r1
-read (str,'(b126)') r2
+write(str,'(b128)') r1
+read (str,'(b128)') r2
if(r2 /= r1) call abort()
! Real (B)O(Z)
r2 = 5.0_xp
@@ -33,8 +33,8 @@ if(r2 /= r1) call abort()
z2 = cmplx(5.0_xp,7.0_xp)
z1 = cmplx(2.0_xp,3.0_xp)
! Complex B(OZ)
-write(str,'(2b126)') z1
-read (str,'(2b126)') z2
+write(str,'(2b128)') z1
+read (str,'(2b128)') z2
if(z2 /= z1) call abort()
! Complex (B)O(Z)
z2 = cmplx(5.0_xp,7.0_xp)