1! { dg-do run }
2! PR 49755 - If allocating an already allocated array, and stat=
3!            is given, set stat to non zero and do not touch the array.
4program test
5    integer, allocatable :: A(:, :)
6    integer :: stat
7
8    allocate(A(20,20))
9    A = 42
10
11    ! Allocate of already allocated variable
12    allocate (A(5,5), stat=stat)
13
14    ! Expected: Error stat and previous allocation status
15    if (stat == 0) call abort ()
16    if (any (shape (A) /= [20, 20])) call abort ()
17    if (any (A /= 42)) call abort ()
18end program
19
20