From cd0b19ebe60582b15ff76b46e3f6b4f29136039c Mon Sep 17 00:00:00 2001 From: rsandifo Date: Tue, 13 Sep 2005 11:01:23 +0000 Subject: [PATCH] * 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 --- 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 641f1f2..37d8a45 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 777db53..4bf165b 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.7.4