[Bug fortran/55984] [4.8 Regression] ICE: gfc_trans_code(): Bad statement code

[janus at gcc dot gnu.org]

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

--- Comment #2 from janus at gcc dot gnu.org 2013-01-15 10:04:31 UTC ---
Confirmed. Reduced test case:


  type, abstract :: bcd_t
    contains
    procedure(bcd_fill_halos), deferred :: fill_halos
  end type
  abstract interface 
    subroutine bcd_fill_halos(this)
      import :: bcd_t
      class(bcd_t ) :: this
    end subroutine
  end interface
  type :: mpdata_t
    class(bcd_t), pointer :: bcx
  end type
 contains
  subroutine mpdata_advop(this)
    class(mpdata_t) :: this
    associate ( bcx => this%bcx )
      call bcx%fill_halos()
    end associate
  end subroutine
end


4.7 works, i.e. it is a regression in 4.8.

This is the same problem mentioned in PR 55983 comment 2.