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