From 8abbec474896d0c2d341c18993a706fa731394cd Mon Sep 17 00:00:00 2001 From: Richard Sandiford Date: Tue, 13 Sep 2005 11:01:23 +0000 Subject: [PATCH] * gfortran.dg/char_pack_2.f90: Increase the vector size. From-SVN: r104220 --- gcc/testsuite/ChangeLog | 6 +++++- 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 + + * gfortran.dg/char_pack_2.f90: Increase the vector size. + 2005-09-13 Richard Sandiford PR fortran/18899 - * fortran.dg/shape_2.f90: New test. + * gfortran.dg/shape_2.f90: New test. 2005-09-13 Richard Sandiford 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. -- 2.30.2