9 integer, allocatable :: i(:)
13 deallocate(i, stat=n, errmsg=e1)
14 if (trim(e1) /= 'No error') call abort
18 deallocate(i, stat=n, errmsg=e2)
19 if (trim(e2) /= 'No error') call abort
22 deallocate(i, stat=n, errmsg=e1)
23 if (trim(e1) /= 'Attempt to deallocate an unallocated object') call abort
26 deallocate(i, stat=n, errmsg=e2)
27 if (trim(e2) /= 'Attempt to deallocate an unall') call abort