gcc/testsuite/gfortran.dg/allocatable_scalar_1.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 real, allocatable :: scalar
   9
  10 allocate(scalar)
  11 scalar = exp(1.)
  12 print *,scalar
  13 if (.not. allocated(scalar)) call abort()
  14 deallocate(scalar)
  15 if (allocated(scalar)) call abort()
  16
  17 end
  18