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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [func_result_5.f90] - Blame information for rev 308

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


! { dg-do compile }
!
! PR fortran/42650
!
! Result type was not working
!
 
type(t) function func2() result(res)
  type t
    sequence
    integer :: i = 5
  end type t
  res%i = 2
end function func2

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/42650`
4			`!`
5			`! Result type was not working`
6			`!`
7
8			`type(t) function func2() result(res)`
9			`type t`
10			`sequence`
11			`integer :: i = 5`
12			`end type t`
13			`res%i = 2`
14			`end function func2`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [func_result_5.f90] - Blame information for rev 308