! { dg-do run } ! ! PR 40996: [F03] ALLOCATABLE scalars ! ! Contributed by Janus Weil implicit none real, allocatable :: scalar allocate(scalar) scalar = exp(1.) print *,scalar if (.not. allocated(scalar)) call abort() deallocate(scalar) if (allocated(scalar)) call abort() end