28 lines
598 B
Plaintext
28 lines
598 B
Plaintext
! { 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
|