module test_pgi_intent

implicit none

type foo
   integer, pointer :: bar
end type foo

contains

subroutine set_bar_pointee(my_foo)
  type(foo), intent(in) :: my_foo

  my_foo%bar = 5

end subroutine set_bar_pointee

end module test_pgi_intent