1! { dg-do run }
2! { dg-options "-Wall -pedantic" }
3!
4! PR fortran/41872
5!
6!  (De)allocate tests
7!
8program 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 ()
26end program test
27