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