[Bug fortran/50625] New: [4.6/4.7 Regression][OOP] ALLOCATABLE attribute lost for module CLASS variables

["burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

             Bug #: 50625
           Summary: [4.6/4.7 Regression][OOP] ALLOCATABLE attribute lost
                    for module CLASS variables
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org
                CC: janus@gcc.gnu.org


The following program compiles with GCC 4.5 and ifort, but fails with GCC 4.6
and GCC 4.7 with:

if(allocated(x)) stop
             1
Error: 'array' argument of 'allocated' intrinsic at (1) must be ALLOCATABLE



module m
type t
end type t
class(t), allocatable :: x
end module m

use m
implicit none
if(allocated(x)) stop
end