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
