This may be related to 15181.  This is a non-functional excerpt from a medium
sized code which stresses f95 some f95 features.

gfortran --version
GNU Fortran 95 (GCC 4.0.0 20041111 (experimental))
x86 linux. 

module gfortran_bug1
  integer, parameter :: kdkind = kind(0.0d0)

  type interval
      real(kdkind) :: lower,upper
  end type interval

  type :: tree_node
      ! an internal tree node
      private
      integer :: cut_dim
      ! the dimension to cut
      real(kdkind) :: cut_val
      ! where to cut the dimension
      real(kdkind) :: cut_val_left, cut_val_right
      ! improved cutoffs knowing the spread in child boxes.
      integer :: l, u
      type (tree_node), pointer :: left, right
      type(interval), pointer :: box(:) => null()
      ! child pointers
      ! Points included in this node are indexes[k] with k \in [l,u]


  end type tree_node

contains

  function main result(res)
    type(tree_node), pointer :: res

    write (*,*) res%left%box(1)%upper
    return
  end function main


end module gfortran_bug1