URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_33.f90] - Blame information for rev 324

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
! PR20923 gfortran slow for large array constructors.
! Test case prepared from PR by Jerry DeLisle 
program sel
    implicit none
    integer(kind=4),parameter      :: n=1000
    integer(kind=4)                :: i,j
    real(kind=4),dimension(n*n)    :: vect
    vect(:) = (/ ((( (i+j+3)),i=1,n),j=1,n) /)
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR20923 gfortran slow for large array constructors.`
3			`! Test case prepared from PR by Jerry DeLisle`
4			`program sel`
5			`implicit none`
6			`integer(kind=4),parameter :: n=1000`
7			`integer(kind=4) :: i,j`
8			`real(kind=4),dimension(n*n) :: vect`
9			`vect(:) = (/ ((( (i+j+3)),i=1,n),j=1,n) /)`
10			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_33.f90] - Blame information for rev 324