program main
  implicit none
  real, pointer :: x(:)
  print *, size(x) ! 未定義のポインタを参照している。
end program