[Bug fortran/56385] [OOP] ICE with allocatable function result in a procedure-pointer component

["janus at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-invalid-code
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-02-18
                 CC|                            |janus at gcc dot gnu.org
            Summary|ICE with allocatable        |[OOP] ICE with allocatable
                   |function result in a        |function result in a
                   |type-bound procedure        |procedure-pointer component
     Ever Confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org 2013-02-18 22:14:55 UTC ---
ICE confirmed with 4.6, 4.7 and trunk. Reduced test case:


module VolumeSources
  implicit none

  type :: TGeometricShape
  end type

  type :: TVolumeSourceBody
    class(TGeometricShape), allocatable :: GeometricShape
    procedure(scalar_flux_interface), pointer :: get_scalar_flux
  end type TVolumeSourceBody

  abstract interface
    function scalar_flux_interface(self) result(res)
      import
      real, allocatable :: res(:)
      class(TVolumeSourceBody), intent(in) :: self
    end function
  end interface

end module


Note: 'get_scalar_flux' is actually not a type-bound procedure, but a
procedure-pointer component.