[Bug fortran/46313] [OOP] class container naming collisions

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|[OOP] OOP-ABI issue,        |[OOP] class container
                   |ALLOCATE issue, CLASS       |naming collisions
                   |renaming issue              |

--- Comment #7 from janus at gcc dot gnu.org 2010-11-09 12:52:12 UTC ---
(In reply to comment #6)
> As Tobias pointed out at
> 
> http://gcc.gnu.org/ml/fortran/2010-11/msg00120.html
> 
> there may be additional problems when defining derived types in
> procedures/submodules.


Here is an example code which still fails (analogous to comment #0):


module m
  type t
    real :: a(10) = 2
  end type
end module


program p

  implicit none

  call m

contains

  subroutine m
    use m, t1 => t

    type t
      real :: b(10) = 8
    end type

    class(t1), allocatable :: x
    class(t), allocatable :: y

    allocate (t1 :: x)
    allocate (t :: y)

    print *, x%a
    print *, y%b
  end subroutine

end