! { dg-do compile } | |
! | |
! PR 40451: [F03] procedure pointer assignment rejected | |
! | |
! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
contains | |
function f() | |
intrinsic :: sin | |
abstract interface | |
pure real function sin_interf(x) | |
real, intent(in) :: x | |
end function sin_interf | |
end interface | |
! We cannot use "sin" directly as it is ELEMENTAL | |
procedure(sin_interf), pointer :: f | |
f => sin | |
end function f | |
end | |