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

Subversion Repositories openrisc_me

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

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


! { dg-do compile }
! { dg-options "-fmax-array-constructor=100000" }
! Test for PR19925
!
program pr19925
  implicit none
  integer j
  integer, parameter :: n = 100000
  integer, parameter :: i(n) = (/ (j, j=1, n) /)
  print *, i(5)
end program pr19925

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fmax-array-constructor=100000" }`
3			`! Test for PR19925`
4			`!`
5			`program pr19925`
6			`implicit none`
7			`integer j`
8			`integer, parameter :: n = 100000`
9			`integer, parameter :: i(n) = (/ (j, j=1, n) /)`
10			`print *, i(5)`
11			`end program pr19925`

Browse

Tools

Subversion Repositories openrisc_me

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