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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! PR fortran/36459
!
abstract interface
  function dim()
    integer :: dim
  end function dim
end interface
procedure(dim) :: f
 
interface
  integer function tan()
  end function
end interface
procedure(tan) :: g
 
print *, f()
 
print *, tan()
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/36459`
3			`!`
4			`abstract interface`
5			`function dim()`
6			`integer :: dim`
7			`end function dim`
8			`end interface`
9			`procedure(dim) :: f`
10
11			`interface`
12			`integer function tan()`
13			`end function`
14			`end interface`
15			`procedure(tan) :: g`
16
17			`print *, f()`
18
19			`print *, tan()`
20
21			`end`

Browse

Tools

Subversion Repositories openrisc

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