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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR 42647: Missed initialization/dealloc of allocatable scalar DT with allocatable component
!
! Contributed by Tobias Burnus 
 
type t
 integer, allocatable :: p
end type t
type(t), allocatable :: a
 
deallocate(a,stat=istat)
if (istat == 0) call abort()
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 42647: Missed initialization/dealloc of allocatable scalar DT with allocatable component`
4			`!`
5			`! Contributed by Tobias Burnus`
6
7			`type t`
8			`integer, allocatable :: p`
9			`end type t`
10			`type(t), allocatable :: a`
11
12			`deallocate(a,stat=istat)`
13			`if (istat == 0) call abort()`
14			`end`

Browse

Tools

Subversion Repositories openrisc

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