9 integer, allocatable :: i(:)
12 allocate(i(4), stat=n, errmsg=e1)
13 if (trim(e1) /= 'No error') call abort
17 allocate(i(4),stat=n, errmsg=e2)
18 if (trim(e2) /= 'No error') call abort
23 allocate(i(4), stat=n, errmsg=e1)
24 allocate(i(4), stat=n, errmsg=e1)
25 if (trim(e1) /= 'Attempt to allocate an allocated object') call abort
29 allocate(i(4), stat=n, errmsg=e2)
30 allocate(i(4), stat=n, errmsg=e2)
31 if (trim(e2) /= 'Attempt to allocate an allocat') call abort