--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/gfortran.dg/multiple_allocation_3.f90	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,19 @@
+! { dg-do run }
+! PR 49755 - If allocating an already allocated array, and stat=
+!            is given, set stat to non zero and do not touch the array.
+program test
+    integer, allocatable :: A(:, :)
+    integer :: stat
+
+    allocate(A(20,20))
+    A = 42
+
+    ! Allocate of already allocated variable
+    allocate (A(5,5), stat=stat)
+
+    ! Expected: Error stat and previous allocation status
+    if (stat == 0) call abort ()
+    if (any (shape (A) /= [20, 20])) call abort ()
+    if (any (A /= 42)) call abort ()
+end program
+