gcc47 @4.7.3_0: Incorrectly initializing null pointer causes internal gfortran error

[guyoom@…]

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

[cooljeanius (Eric Gallager)]

does this just happen with the MacPorts gcc47, or does it happen with other compiles of it, too?

[larryv (Lawrence Velázquez)]

Thanks. In the future, please Cc relevant port maintainers.

[jeremyhu (Jeremy Huddleston Sequoia)]

No response. If this is still an issue, please report upstream.