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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR 44962: [OOP] ICE with specification expression SIZE()
!
! Contributed by Satish.BD 
 
 
module array
 
type :: t_array
  real, dimension(10) :: coeff
contains
  procedure :: get_coeff
end type t_array
 
contains
 
function get_coeff(self) result(coeff)
  class(t_array), intent(in) :: self
  real, dimension(size(self%coeff)) :: coeff !! The SIZE here carashes !!
end function get_coeff
 
end module array
 
 
! { dg-final { cleanup-modules "array" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 44962: [OOP] ICE with specification expression SIZE()`
4			`!`
5			`! Contributed by Satish.BD`
6
7
8			`module array`
9
10			`type :: t_array`
11			`real, dimension(10) :: coeff`
12			`contains`
13			`procedure :: get_coeff`
14			`end type t_array`
15
16			`contains`
17
18			`function get_coeff(self) result(coeff)`
19			`class(t_array), intent(in) :: self`
20			`real, dimension(size(self%coeff)) :: coeff !! The SIZE here carashes !!`
21			`end function get_coeff`
22
23			`end module array`
24
25
26			`! { dg-final { cleanup-modules "array" } }`

Browse

Tools

Subversion Repositories openrisc

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