[MacPorts] #39120: Error in initialization null pointer leads to internal compiler error

[MacPorts]

#39120: Error in initialization null pointer leads to internal compiler error
------------------------+--------------------------------
 Reporter:  guyoom@…    |      Owner:  macports-tickets@…
     Type:  defect      |     Status:  new
 Priority:  Low         |  Milestone:
Component:  ports       |    Version:  2.1.3
 Keywords:  gfortran47  |       Port:  gcc47
------------------------+--------------------------------
 The following code

 {{{

 program test
     implicit none

     type entry
         real :: value = 0.0
         integer :: index = 0
         type(entry), pointer :: next => null  !Error in initialization;
 should be null()
     end type entry

     type(entry), pointer :: chain
     type(entry), target :: first_element

     first_element%value = 1.5
     first_element%index = 1
     chain => first_element
     write(*,*) chain%value, chain%index

 end program test
 }}}

 leads to the following internal compiler error for GNU Fortran (MacPorts
 gcc47 4.7.3_0+universal) 4.7.3:

 {{{
 derived_types.f08: In function 'test':
 derived_types.f08:1:0: internal compiler error: in gfc_typenode_for_spec,
 at fortran/trans-types.c:1066
 }}}

-- 
Ticket URL: <https://trac.macports.org/ticket/39120>
MacPorts <http://www.macports.org/>
Ports system for OS X