3 ! PR 47024: [OOP] STORAGE_SIZE (for polymorphic types): Segfault at run time
4 ! PR 47189: [OOP] calling STORAGE_SIZE on a NULL-initialized class pointer
5 ! PR 47194: [OOP] EXTENDS_TYPE_OF still returns the wrong result if the polymorphic variable is unallocated
7 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
13 class(t), pointer :: x => null()
14 class(t), allocatable :: y
16 if (storage_size(x)/=32) call abort()
17 if (storage_size(y)/=32) call abort()
21 if (storage_size(y)/=32) call abort()
25 if (storage_size(y)/=32) call abort()