Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/reshape_2.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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) STOP 1 if (nxttab(1, nplam) .ne. 1) STOP 2 if (nxttab(linem, 1) .ne. 6) STOP 3 if (nxttab(linem, nplam) .ne. 132) STOP 4 end program test