This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[committed] Fix char_pack_2.f90 test
- From: Richard Sandiford <richard at codesourcery dot com>
- To: gcc-patches at gcc dot gnu dot org
- Cc: fortran at gcc dot gnu dot org
- Date: Tue, 13 Sep 2005 12:04:43 +0100
- Subject: [committed] Fix char_pack_2.f90 test
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.