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