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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_result_4.f90] - Blame information for rev 686

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


! { dg-do compile }
!
! PR 40451: [F03] procedure pointer assignment rejected
!
! Contributed by Tobias Burnus 
 
contains
 
  function f()
    intrinsic :: sin
    procedure(sin), pointer :: f
    f => sin
  end function f
 
end
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 40451: [F03] procedure pointer assignment rejected`
4			`!`
5			`! Contributed by Tobias Burnus`
6
7			`contains`
8
9			`function f()`
10			`intrinsic :: sin`
11			`procedure(sin), pointer :: f`
12			`f => sin`
13			`end function f`
14
15			`end`
16

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_result_4.f90] - Blame information for rev 686