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