gcc/testsuite/gfortran.dg/allocated_1.f90

   1 ! { dg-do run }
   2 program foo
   3
   4    implicit none
   5
   6    integer, allocatable :: x
   7    integer, allocatable :: a(:)
   8
   9    logical a1, a2
  10
  11    a1 = allocated(scalar=x)
  12    if (a1 .neqv. .false.) stop 1
  13    a2 = allocated(array=a)
  14    if (a2 .neqv. .false.) stop 2
  15
  16    allocate(x)
  17    allocate(a(2))
  18
  19    a1 = allocated(scalar=x)
  20    if (a1 .neqv. .true.) stop 3
  21    a2 = allocated(array=a)
  22    if (a2 .neqv. .true.) stop 4
  23
  24 end program foo