Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/reshape_2.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
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) 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