[Bug fortran/41719] New: invalid: Intrinsic assignment involving polymorphic variables

[burnus at gcc dot gnu dot org]

R734 assignment-stmt is variable = expr

"An intrinsic assignment statement is an assignment statement that is not a
defined assignment statement (7.4.1.4). In an intrinsic assignment statement,
variable shall not be polymorphic"



 implicit none

 type t1
   integer :: a
 end type

 type, extends(t1) :: t2
   integer :: b
 end type

 class(t1),pointer :: cp
 type(t2) :: x

 x = t2(45,478) ! INVALID
 allocate(t2 :: cp)
 cp = x
 select type (cp)
   type is (t2)
     print *, cp%a, cp%b
 end select
end


-- 
           Summary: invalid: Intrinsic assignment involving polymorphic
                    variables
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Keywords: accepts-invalid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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