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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR 42051: [OOP] ICE on array-valued function with CLASS formal argument
!
! Original test case by Damian Rouson 
! Modified by Janus Weil 
 
  type grid
  end type
 
contains
 
  function return_x(this) result(this_x)
    class(grid) :: this
    real  ,dimension(1) :: this_x
  end function
 
  subroutine output()
    type(grid) :: mesh
    real ,dimension(1) :: x
    x = return_x(mesh)
  end subroutine
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 42051: [OOP] ICE on array-valued function with CLASS formal argument`
4			`!`
5			`! Original test case by Damian Rouson`
6			`! Modified by Janus Weil`
7
8			`type grid`
9			`end type`
10
11			`contains`
12
13			`function return_x(this) result(this_x)`
14			`class(grid) :: this`
15			`real ,dimension(1) :: this_x`
16			`end function`
17
18			`subroutine output()`
19			`type(grid) :: mesh`
20			`real ,dimension(1) :: x`
21			`x = return_x(mesh)`
22			`end subroutine`
23
24			`end`

Browse

Tools

Subversion Repositories openrisc

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