diff options
| author | rsandifo <rsandifo@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-13 11:01:23 +0000 |
|---|---|---|
| committer | rsandifo <rsandifo@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-13 11:01:23 +0000 |
| commit | cd0b19ebe60582b15ff76b46e3f6b4f29136039c (patch) | |
| tree | c6f91ab65998b562be5c2224586d69e664db1d6c | |
| parent | ec9200dc186d96741a2e2f9fee6a8f291ce1e647 (diff) | |
| download | ppe42-gcc-cd0b19ebe60582b15ff76b46e3f6b4f29136039c.tar.gz ppe42-gcc-cd0b19ebe60582b15ff76b46e3f6b4f29136039c.zip | |
* gfortran.dg/char_pack_2.f90: Increase the vector size.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104220 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 641f1f2790e..37d8a45407b 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 777db53f83c..4bf165b29cb 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. |
