gcc/testsuite/gfortran.dg/allocatable_scalar_6.f90

   1 ! { dg-do run }
   2 ! { dg-options "-Wall -pedantic" }
   3 !
   4 ! PR fortran/41872
   5 !
   6 !  (De)allocate tests
   7 !
   8 program test
   9   implicit none
  10   integer, allocatable :: a, b, c
  11   integer :: stat
  12   stat=99
  13   allocate(a, stat=stat)
  14   if (stat /= 0) call abort ()
  15   allocate(a, stat=stat)
  16   if (stat == 0) call abort ()
  17
  18   allocate (b)
  19   deallocate (b, stat=stat)
  20   if (stat /= 0) call abort ()
  21   deallocate (b, stat=stat)
  22   if (stat == 0) call abort ()
  23
  24   deallocate (c, stat=stat)
  25   if (stat == 0) call abort ()
  26 end program test