[committed] Fix char_pack_2.f90 test

[Richard Sandiford]

Steven B. reported that my char_pack_2.f90 was failing on x86-64 SuSE.
The problem was that the vector I was using was too short.  I've committed
this fix as obvious.

Sorry to everyone for the bogus failures.

Richard


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

Index: gcc/testsuite/gfortran.dg/char_pack_2.f90
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.dg/char_pack_2.f90,v
retrieving revision 1.1
diff -c -p -F^\([(a-zA-Z0-9_]\|#define\) -r1.1 char_pack_2.f90
*** gcc/testsuite/gfortran.dg/char_pack_2.f90 13 Sep 2005 07:14:54 -0000 1.1
--- gcc/testsuite/gfortran.dg/char_pack_2.f90 13 Sep 2005 10:49:22 -0000
***************
*** 2,8 ****
  ! { dg-do run }
  program main
    implicit none
!   integer, parameter :: n1 = 3, n2 = 4, nv = 10, slen = 9
    character (len = slen), dimension (n1, n2) :: a
    character (len = slen), dimension (nv) :: vector
    logical :: mask
--- 2,8 ----
  ! { dg-do run }
  program main
    implicit none
!   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
*************** program main
*** 15,21 ****
    end do
  
    do i = 1, nv
!     vector (i) = 'crespo' // '0123456789'(i:i)
    end do
  
    mask = .true.
--- 15,21 ----
    end do
  
    do i = 1, nv
!     vector (i) = 'crespo' // '0123456789abcdef'(i:i)
    end do
  
    mask = .true.