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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-timeout-factor 4 }
! 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	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-timeout-factor 4 }`
3			`! PR20923 gfortran slow for large array constructors.`
4			`! Test case prepared from PR by Jerry DeLisle`
5			`program sel`
6			`implicit none`
7			`integer(kind=4),parameter :: n=1000`
8			`integer(kind=4) :: i,j`
9			`real(kind=4),dimension(n*n) :: vect`
10			`vect(:) = (/ ((( (i+j+3)),i=1,n),j=1,n) /)`
11			`end`

Browse

Tools

Subversion Repositories openrisc

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