1! { dg-do run } 2! 3! PR 50625: [4.6/4.7 Regression][OOP] ALLOCATABLE attribute lost for module CLASS variables 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6 7module m 8type t 9end type t 10class(t), allocatable :: x 11end module m 12 13use m 14implicit none 15if (allocated(x)) call abort() 16end 17