* 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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 641f1f2..37d8a45 100644 (file)
--- 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 (file)
--- 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.