! { dg-do run }
program foo

   implicit none

   integer, allocatable :: x
   integer, allocatable :: a(:)

   logical a1, a2

   a1 = allocated(scalar=x)
   if (a1 .neqv. .false.) stop 1
   a2 = allocated(array=a)
   if (a2 .neqv. .false.) stop 2

   allocate(x)
   allocate(a(2))

   a1 = allocated(scalar=x)
   if (a1 .neqv. .true.) stop 3
   a2 = allocated(array=a)
   if (a2 .neqv. .true.) stop 4

end program foo