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

re PR fortran/34556 (Rejects valid with bogus error message: parameter initalization)

Browse Source 
2007-01-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR target/34556
	* gfortran.dg/reshape_2.f90: New test.

From-SVN: r131624
This commit is contained in:
Jerry DeLisle 2008-01-18 02:16:48 +00:00
parent 207bde5fcf
commit dccd85968c
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR target/34556
* gfortran.dg/reshape_2.f90: New test.
2007-01-18 Bernhard Fischer <aldot@gcc.gnu.org>
* gcc.dg/20040223-1.c: Fix comment typo.

24
gcc/testsuite/gfortran.dg/reshape_2.f90 Normal file
View File

@ -0,0 +1,24 @@
! { dg-do run }
! PR34556 Rejects valid with bogus error message: parameter initalization
! Found using the Fortran Company Fortran 90 Test Suite (Lite),
! Version 1.4
! Test case modified by Jerry DeLisle <jvdelisle@gcc.gnu.org to
! show correct results.
module splitprms
integer, parameter :: nplam = 3 ! # of plans to expand TABs
integer, parameter :: linem = 132 ! max. line length
integer, parameter :: ncntm = 39 ! max. # cont. lines
integer, parameter, dimension (linem, nplam) :: nxttab = &
reshape ([[(6, i= 1, 2*linem) ], [(i, i= 1,linem)], &
max ([(i, i= 1,linem)], [(10*i, i= 1,linem)])], &
[linem, nplam ])
end module splitprms
program test
use splitprms
if (nxttab(1, 1) .ne. 6) call abort
if (nxttab(1, nplam) .ne. 1) call abort
if (nxttab(linem, 1) .ne. 6) call abort
if (nxttab(linem, nplam) .ne. 132) call abort
end program test
! { dg-final { cleanup-modules "splitprms" } }