1! { dg-do run }
2! PR34556 Rejects valid with bogus error message: parameter initalization
3! Found using the Fortran Company Fortran 90 Test Suite (Lite),
4! Version 1.4
5! Test case modified by Jerry DeLisle  <jvdelisle@gcc.gnu.org to
6! show correct results.
7module splitprms
8      integer, parameter  :: nplam = 3 ! # of plans to expand TABs
9      integer, parameter  :: linem = 132 ! max. line length
10      integer, parameter  :: ncntm = 39 ! max. # cont. lines
11      integer, parameter, dimension (linem, nplam) :: nxttab =  &
12      reshape ([[(6, i= 1, 2*linem) ], [(i, i= 1,linem)],    &
13                max ([(i, i= 1,linem)], [(10*i, i= 1,linem)])],      &
14               [linem, nplam ])
15end module splitprms
16
17program test
18  use splitprms
19  if (nxttab(1, 1) .ne. 6) call abort
20  if (nxttab(1, nplam) .ne. 1) call abort
21  if (nxttab(linem, 1) .ne. 6) call abort
22  if (nxttab(linem, nplam) .ne. 132) call abort
23end program test
24