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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do run }
! PR43969 - class array implementation
!
! Contributed by Janus Weil  
!
  implicit none
 
  type indx_map
  end type
 
  type desc_type
    class(indx_map), allocatable :: indxmap(:)
  end type
 
  type(desc_type)  :: desc
  if (allocated(desc%indxmap)) call abort()
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR43969 - class array implementation`
3			`!`
4			`! Contributed by Janus Weil`
5			`!`
6			`implicit none`
7
8			`type indx_map`
9			`end type`
10
11			`type desc_type`
12			`class(indx_map), allocatable :: indxmap(:)`
13			`end type`
14
15			`type(desc_type) :: desc`
16			`if (allocated(desc%indxmap)) call abort()`
17
18			`end`

Browse

Tools

Subversion Repositories openrisc

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