[Bug fortran/51207] New: [OOP] Mark __def_init_... as FL_PARAMETER

[burnus at gcc dot gnu.org]

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

             Bug #: 51207
           Summary: [OOP] Mark __def_init_... as FL_PARAMETER
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Keywords: missed-optimization
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassig...@gcc.gnu.org
        ReportedBy: bur...@gcc.gnu.org


module m
type t
  integer :: i = 4
end type t
end module m


use m
class(t), allocatable :: x, y

allocate(t :: y)
allocate(x, mold=x)

if (x%i /= 4 ) call bfjkhskllf()
end