This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

ICE with non-allocatable CLASS variable


The following gives an ICE with gfortran 4.7.0 r175063. It's not legal Fortran 
(as far as I understand), and adding an "allocatable" attribute to 
"subComponent" results in a successful compile. 

I haven't found this in bugzilla but wanted to double check that this isn't a 
known problem before submitting a bug report.

-Andrew.

module Nodes                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                      
  type :: nodeWrapper                                                                                                                                                                                                                                 
  end type nodeWrapper                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                      
  type, extends(nodeWrapper) :: treeNode                                                                                                                                                                                                              
     class(nodeWrapper) :: subComponent                                                                                                                                                                                                               
  end type treeNode                                                                                                                                                                                                                                   
                                                                                                                                                                                                                                                      
end module Nodes                                                                                                                                                                                                                                      

-- 

* Andrew Benson: http://www.tapir.caltech.edu/~abenson/contact.html

* Galacticus: http://sites.google.com/site/galacticusmodel


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]