2 ! { dg-options "-Wall -pedantic" }
10 integer, allocatable :: a, b, c
13 allocate(a, stat=stat)
14 if (stat /= 0) call abort ()
15 allocate(a, stat=stat)
16 if (stat == 0) call abort ()
19 deallocate (b, stat=stat)
20 if (stat /= 0) call abort ()
21 deallocate (b, stat=stat)
22 if (stat == 0) call abort ()
24 deallocate (c, stat=stat)
25 if (stat == 0) call abort ()