gcc/testsuite/gfortran.dg/storage_size_3.f08

   1 ! { dg-do run }
   2 !
   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
   6 !
   7 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   8
   9 type t
  10   integer(kind=4) :: a
  11 end type
  12
  13 class(t), pointer :: x => null()
  14 class(t), allocatable :: y
  15
  16 if (storage_size(x)/=32) call abort()
  17 if (storage_size(y)/=32) call abort()
  18
  19 allocate(y)
  20
  21 if (storage_size(y)/=32) call abort()
  22
  23 deallocate(y)
  24
  25 if (storage_size(y)/=32) call abort()
  26
  27 end