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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR fortran/50050
! Out of bound whilst releasing initialization of allocate object
!
! Contributed by someone 
 
program bug
  implicit none
  type foo
    integer, pointer :: a => null()
  end type
  type(foo), dimension(:,:), allocatable :: data
  allocate(data(1:1,1)) ! This used to lead to an ICE
end program

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/50050`
4			`! Out of bound whilst releasing initialization of allocate object`
5			`!`
6			`! Contributed by someone`
7
8			`program bug`
9			`implicit none`
10			`type foo`
11			`integer, pointer :: a => null()`
12			`end type`
13			`type(foo), dimension(:,:), allocatable :: data`
14			`allocate(data(1:1,1)) ! This used to lead to an ICE`
15			`end program`

Browse

Tools

Subversion Repositories openrisc

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