Fortran90 Pointers: is foo reliably 1?

ma.f90

module a_mod
  use b_mod
  implicit none
  public
  private :: a, b
  integer, target :: a
  integer, pointer :: b
contains
  subroutine run_test()
    a = 1
    b => a
    call  print_value(b)
  end subroutine run_test
end module a_mod

mb.f90

module b_mod
  implicit none
contains
  subroutine print_value(foo)
    integer, pointer :: foo
    write (*,*) " value is ", foo
  end subroutine print_value
end module b_mod

test.f90

program test
  use a_mod
  implicit none
  call run_test()
end program test