Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/storage_size_3.f08 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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