* gfortran.dg/char_pack_2.f90: Increase the vector size.

From-SVN: r104220

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 641f1f2790e910d904555642954616747a8444f7..37d8a45407bebb9b706be7bdad473d834ae055c8 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 777db53f83c6270e6a4e863ab73f9ee76c2b3ef2..4bf165b29cb0293e963a73c33d7b6f08aa1603c3 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.