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