gcc/testsuite/gfortran.dg/reshape_2.f90

   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.
   7 module 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 ])
  15 end module splitprms
  16
  17 program test
  18   use splitprms
  19   if (nxttab(1, 1) .ne. 6) STOP 1
  20   if (nxttab(1, nplam) .ne. 1) STOP 2
  21   if (nxttab(linem, 1) .ne. 6) STOP 3
  22   if (nxttab(linem, nplam) .ne. 132) STOP 4
  23 end program test