module HelloWorld

  procedure(), pointer :: ptr

  contains

  subroutine Hello1()
    print *,'Ahoj'
  end subroutine

  subroutine Hello2(a)
    integer, intent(in) ::  a
    print *,'Nazdar',a
  end subroutine

end module

program main
  use HelloWorld
  implicit none

  ptr => Hello1
  call ptr

  ptr => Hello2
  call ptr(2)

end program

zdenka@pc209:~/simulations/fireball/ptr_func$ ifort -c main.f90 -o main.o;ifort main.o -o test;./test
 Ahoj
 Nazdar           2

The New Features of Fortran 2003

Fortran 2003: the latest Fortran Standard