[Bug fortran/62044] [4.8/4.9 Regression] ICE in USE statement with RENAME for extended derived type

[paul.richard.thomas at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62044

paul.richard.thomas at gmail dot com <paul.richard.thomas at gmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |paul.richard.thomas at gmail dot c
                   |                            |om

--- Comment #6 from paul.richard.thomas at gmail dot com <paul.richard.thomas at gmail dot com> ---
(In reply to Mikael Morin from comment #4)
> Author: mikael
> Date: Sun Jan 25 20:30:53 2015
> New Revision: 220097
> 
> URL: https://gcc.gnu.org/viewcvs?rev=220097&root=gcc&view=rev
> Log:
> fortran/
> 	PR fortran/62044
> 	* decl.c (gfc_match_derived_decl): Don't insert a new symtree element.
> 	* module.c (MOD_VERSION): Bump.
> 	(write_module): Don't write list of extensions.
> 	(read_module): Don't jump over list of extensions;
> 	don't load list of extensions.
> 	(load_derived_extensions, write_dt_extensions,
> 	 write_derived_extensions): Remove.
> 
> testsuite/
> 	PR fortran/62044
> 	* gfortran.dg/use_rename_7.f90: New.
> 
> 
> Added:
>     trunk/gcc/testsuite/gfortran.dg/use_rename_7.f90
> Modified:
>     trunk/gcc/fortran/ChangeLog
>     trunk/gcc/fortran/decl.c
>     trunk/gcc/fortran/module.c
>     trunk/gcc/testsuite/ChangeLog

Mikael,

The following, which works OK with another brand, selects the "wrong type" with
trunk. 4.9 still segfaults. Without the use rename, 4.9 runs and gives the
wrong result.

module GridImageSilo_Template
  implicit none
!  private
  type, public, abstract :: GridImageSiloTemplate
  end type GridImageSiloTemplate
end module GridImageSilo_Template

module UnstructuredGridImageSilo_Form
  use GridImageSilo_Template
  implicit none
!  private
  type, public, extends ( GridImageSiloTemplate ) :: &
    UnstructuredGridImageSiloForm
  end type UnstructuredGridImageSiloForm
end module UnstructuredGridImageSilo_Form

module UnstructuredGridImages
  use UnstructuredGridImageSilo_Form, &
        UnstructuredGridImageForm => UnstructuredGridImageSiloForm
contains
  subroutine foo
    class (GridImageSiloTemplate), allocatable :: a
    type (UnstructuredGridImageForm) :: b
    allocate (a, mold = b)
    select type (a)
      type is (UnstructuredGridImageForm)
        print *, "correct type selected"
      class default
        print *, "wrong type"
    end select
  end subroutine
end module UnstructuredGridImages

  use UnstructuredGridImages
  call foo
end

I think that it should be reopened as a placeholder. I suspect that removing
the inheritance information is not the right way to go.

Cheers

Paul