program pure
contains 
  function f(i)
    intent(in) :: i
  end function f
  
  pure function pf(i)
    intent(in) :: i
  end function pf
end program pure