+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>
! { 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
end do
do i = 1, nv
- vector (i) = 'crespo' // '0123456789'(i:i)
+ vector (i) = 'crespo' // '0123456789abcdef'(i:i)
end do
mask = .true.