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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/44742
!
! Test case based on Juergen Reuter's and reduced by
! Janus Weil.
!
! The program creates a large array constructor, which
! exceeds -fmax-array-constructor - and caused an ICE.
!
 
module proc8
  implicit none
  integer, parameter :: N = 256
  logical, dimension(N**2), parameter :: A = .false.
  logical, dimension(N,N), parameter :: B &
    = reshape ( (/ A /), (/ N, N /) ) ! { dg-error "array constructor at .1. requires an increase" }
end module

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/44742`
4			`!`
5			`! Test case based on Juergen Reuter's and reduced by`
6			`! Janus Weil.`
7			`!`
8			`! The program creates a large array constructor, which`
9			`! exceeds -fmax-array-constructor - and caused an ICE.`
10			`!`
11
12			`module proc8`
13			`implicit none`
14			`integer, parameter :: N = 256`
15			`logical, dimension(N**2), parameter :: A = .false.`
16			`logical, dimension(N,N), parameter :: B &`
17			`= reshape ( (/ A /), (/ N, N /) ) ! { dg-error "array constructor at .1. requires an increase" }`
18			`end module`

Browse

Tools

Subversion Repositories openrisc

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