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