* gfortran.dg/boz_15.f90: Fix typos.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155225 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b248e3b..f3b96e0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2009-12-14  Dominique d'Humieres  <dominiq@lps.ens.fr>
+
+       * gfortran.dg/boz_15.f90: Fix typos.
+
 2009-12-14  Jakub Jelinek  <jakub@redhat.com>
            Sebastian Pop  <sebastian.pop@amd.com>
 

diff --git a/gcc/testsuite/gfortran.dg/boz_15.f90 b/gcc/testsuite/gfortran.dg/boz_15.f90
index 40ad514..f481f16 100644 (file)
--- a/gcc/testsuite/gfortran.dg/boz_15.f90
+++ b/gcc/testsuite/gfortran.dg/boz_15.f90
@@ -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)