program main
  implicit none
  real, pointer :: y(:) => null()
  print *, size(y) ! 空状態のポインタを参照している。
end program