OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [reshape_2.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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  
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) 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
23
end program test
24
! { dg-final { cleanup-modules "splitprms" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.