gcc/testsuite/gfortran.dg/class_46.f03

   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
   7 module m
   8 type t
   9 end type t
  10 class(t), allocatable :: x
  11 end module m
  12
  13 use m
  14 implicit none
  15 if (allocated(x)) call abort()
  16 end
  17
  18 ! { dg-final { cleanup-modules "m" } }