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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do run }
!
! PR 46838: [OOP] Initialization of polymorphic allocatable components
!
! Contributed by Salvatore Filippone 
 
program bug28
 
  implicit none
 
  type indx_map
  end type
 
  type desc_type
    integer, allocatable         :: matrix_data
    class(indx_map), allocatable :: indxmap
  end type
 
  type(desc_type) :: desc_a
  call cdall(desc_a)
 
contains
 
  subroutine cdall(desc)
    type(desc_type), intent(out)  :: desc
    if (allocated(desc%indxmap)) call abort()
  end subroutine cdall
 
end program

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 46838: [OOP] Initialization of polymorphic allocatable components`
4			`!`
5			`! Contributed by Salvatore Filippone`
6
7			`program bug28`
8
9			`implicit none`
10
11			`type indx_map`
12			`end type`
13
14			`type desc_type`
15			`integer, allocatable :: matrix_data`
16			`class(indx_map), allocatable :: indxmap`
17			`end type`
18
19			`type(desc_type) :: desc_a`
20			`call cdall(desc_a)`
21
22			`contains`
23
24			`subroutine cdall(desc)`
25			`type(desc_type), intent(out) :: desc`
26			`if (allocated(desc%indxmap)) call abort()`
27			`end subroutine cdall`
28
29			`end program`

Browse

Tools

Subversion Repositories openrisc

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