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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
! PR 19929
! Deallocation of pointer components of derived type arrays
program der_ptr_component
    type :: t
        integer, pointer :: p
    end type t
    type(t) :: a(1)
 
    allocate(a(1)%p)
    deallocate(a(1)%p)
 
end program der_ptr_component

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! PR 19929`
3			`! Deallocation of pointer components of derived type arrays`
4			`program der_ptr_component`
5			`type :: t`
6			`integer, pointer :: p`
7			`end type t`
8			`type(t) :: a(1)`
9
10			`allocate(a(1)%p)`
11			`deallocate(a(1)%p)`
12
13			`end program der_ptr_component`

Browse

Tools

Subversion Repositories openrisc

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