[Bug fortran/18432] New: ICE on subcomponent arrays of derived types

[mbkennel at gmail dot com]

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 2004 (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

-- 
   Summary: ICE on subcomponent arrays of derived types
   Product: gcc
   Version: 4.0.0
Status: UNCONFIRMED
  Severity: normal
  Priority: P2
 Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: mbkennel at gmail dot com
CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18432

[Bug fortran/18432] ICE on subcomponent arrays of derived types

[mbkennel at gmail dot com]

--- Additional Comments From mbkennel at gmail dot com  2004-11-11 19:08 
---
Created an attachment (id=7519)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=7519&action=view)
ICE test case


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18432