! { dg-do run }
!
! PR 47024: [OOP] STORAGE_SIZE (for polymorphic types): Segfault at run time
! PR 47189: [OOP] calling STORAGE_SIZE on a NULL-initialized class pointer
! PR 47194: [OOP] EXTENDS_TYPE_OF still returns the wrong result if the polymorphic variable is unallocated
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>

type t
  integer(kind=4) :: a
end type

class(t), pointer :: x => null()
class(t), allocatable :: y

if (storage_size(x)/=32) STOP 1
if (storage_size(y)/=32) STOP 2

allocate(y)

if (storage_size(y)/=32) STOP 3

deallocate(y)

if (storage_size(y)/=32) STOP 4

end