URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [der_pointer_1.f90] - Blame information for rev 437

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


! { dg-do compile }
! PR13010
! Arrays of self-referential pointers
module test
   type list_t
      type(list_t), pointer :: next
   end type list_t
 
   type listptr_t
      type(list_t), pointer :: this
   end type listptr_t
 
   type x_t
      type(listptr_t), pointer :: arr(:)
   end type x_t
 
   type(x_t), pointer :: x
end module test
 
! { dg-final { cleanup-modules "test" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR13010`
3			`! Arrays of self-referential pointers`
4			`module test`
5			`type list_t`
6			`type(list_t), pointer :: next`
7			`end type list_t`
8
9			`type listptr_t`
10			`type(list_t), pointer :: this`
11			`end type listptr_t`
12
13			`type x_t`
14			`type(listptr_t), pointer :: arr(:)`
15			`end type x_t`
16
17			`type(x_t), pointer :: x`
18			`end module test`
19
20			`! { dg-final { cleanup-modules "test" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [der_pointer_1.f90] - Blame information for rev 437