17 lines
249 B
Fortran
17 lines
249 B
Fortran
|
! { dg-do compile }
|
||
|
!
|
||
|
! PR 40451: [F03] procedure pointer assignment rejected
|
||
|
!
|
||
|
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
|
||
|
|
||
|
contains
|
||
|
|
||
|
function f()
|
||
|
intrinsic :: sin
|
||
|
procedure(sin), pointer :: f
|
||
|
f => sin
|
||
|
end function f
|
||
|
|
||
|
end
|
||
|
|