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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR 41478: Corrupted memory using PACK for derived-types with allocated components
! PR 42268: [4.4/4.5 Regression] derived type segfault with pack
!
! Original test case by Juergen Reuter 
! Modified by Janus Weil 
 
type :: container_t
  integer:: entry = -1
end type container_t
type(container_t), dimension(1) :: a1, a2
a2(1)%entry = 1
a1 = pack (a2, mask = [.true.])
if (a1(1)%entry/=1) call abort()
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 41478: Corrupted memory using PACK for derived-types with allocated components`
4			`! PR 42268: [4.4/4.5 Regression] derived type segfault with pack`
5			`!`
6			`! Original test case by Juergen Reuter`
7			`! Modified by Janus Weil`
8
9			`type :: container_t`
10			`integer:: entry = -1`
11			`end type container_t`
12			`type(container_t), dimension(1) :: a1, a2`
13			`a2(1)%entry = 1`
14			`a1 = pack (a2, mask = [.true.])`
15			`if (a1(1)%entry/=1) call abort()`
16			`end`

Browse

Tools

Subversion Repositories openrisc

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