diff options
| author | Richard Sandiford <richard@codesourcery.com> | 2005-09-13 11:01:23 +0000 |
|---|---|---|
| committer | Richard Sandiford <rsandifo@gcc.gnu.org> | 2005-09-13 11:01:23 +0000 |
| commit | 8abbec474896d0c2d341c18993a706fa731394cd (patch) | |
| tree | c6f91ab65998b562be5c2224586d69e664db1d6c | |
| parent | 4fd9a81345882be70ae24604eb98d3db9ec9f321 (diff) | |
| download | gcc-8abbec474896d0c2d341c18993a706fa731394cd.zip gcc-8abbec474896d0c2d341c18993a706fa731394cd.tar.gz gcc-8abbec474896d0c2d341c18993a706fa731394cd.tar.bz2 | |
* gfortran.dg/char_pack_2.f90: Increase the vector size.
From-SVN: r104220
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_pack_2.f90 | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 641f1f2..37d8a45 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,7 +1,11 @@ 2005-09-13 Richard Sandiford <richard@codesourcery.com> + * gfortran.dg/char_pack_2.f90: Increase the vector size. + +2005-09-13 Richard Sandiford <richard@codesourcery.com> + PR fortran/18899 - * fortran.dg/shape_2.f90: New test. + * gfortran.dg/shape_2.f90: New test. 2005-09-13 Richard Sandiford <richard@codesourcery.com> diff --git a/gcc/testsuite/gfortran.dg/char_pack_2.f90 b/gcc/testsuite/gfortran.dg/char_pack_2.f90 index 777db53..4bf165b 100644 --- a/gcc/testsuite/gfortran.dg/char_pack_2.f90 +++ b/gcc/testsuite/gfortran.dg/char_pack_2.f90 @@ -2,7 +2,7 @@ ! { dg-do run } program main implicit none - integer, parameter :: n1 = 3, n2 = 4, nv = 10, slen = 9 + integer, parameter :: n1 = 3, n2 = 4, nv = 16, slen = 9 character (len = slen), dimension (n1, n2) :: a character (len = slen), dimension (nv) :: vector logical :: mask @@ -15,7 +15,7 @@ program main end do do i = 1, nv - vector (i) = 'crespo' // '0123456789'(i:i) + vector (i) = 'crespo' // '0123456789abcdef'(i:i) end do mask = .true. |