OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

From-SVN: r104220
This commit is contained in:
Richard Sandiford 2005-09-13 11:01:23 +00:00 committed by Richard Sandiford
parent 4fd9a81345
commit 8abbec4748
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,7 +1,11 @@
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>

4
gcc/testsuite/gfortran.dg/char_pack_2.f90
View File

@ -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.