diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2009-12-14 18:56:12 +0100 |
|---|---|---|
| committer | Uros Bizjak <uros@gcc.gnu.org> | 2009-12-14 18:56:12 +0100 |
| commit | 3c0c50279beaa7857d301a864ff89e8a07bf09ed (patch) | |
| tree | b6ed6f3c9002a3e2aa0cffc4dc60b421a731c9ce /gcc | |
| parent | e07983ba5fe6abd64ddc41764877ee7d2c567ede (diff) | |
| download | gcc-3c0c50279beaa7857d301a864ff89e8a07bf09ed.zip gcc-3c0c50279beaa7857d301a864ff89e8a07bf09ed.tar.gz gcc-3c0c50279beaa7857d301a864ff89e8a07bf09ed.tar.bz2 | |
boz_15.f90: Fix typos.
* gfortran.dg/boz_15.f90: Fix typos.
From-SVN: r155225
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/boz_15.f90 | 10 |
2 files changed, 9 insertions, 5 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b248e3b..f3b96e0 100644 --- 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 --- 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) |