gcc/testsuite/gfortran.dg/allocatable_scalar_3.f90

   1 ! { dg-do run }
   2 !
   3 ! PR 40996: [F03] ALLOCATABLE scalars
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 implicit none
   8
   9 type :: t
  10   integer, allocatable :: i
  11 end type
  12
  13 type(t)::x
  14
  15 allocate(x%i)
  16
  17 x%i = 13
  18 print *,x%i
  19 if (.not. allocated(x%i)) call abort()
  20
  21 deallocate(x%i)
  22
  23 if (allocated(x%i)) call abort()
  24
  25 end