diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a71bc7a1c26ed1eb7f64fcc5cbf61f03d47131cb..863a060e4b8988a575698453c84ccacd21ae8f63 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-28  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/32124
+	* gfortran.dg/allocate_stat_1.f90: New.
+
 2007-05-28  Brooks Moses  <brooks.moses@codesourcery.com>
 
 	PR fortran/31972
diff --git a/gcc/testsuite/gfortran.dg/allocate_stat_1.f90 b/gcc/testsuite/gfortran.dg/allocate_stat_1.f90
new file mode 100644
index 0000000000000000000000000000000000000000..a9c681aeb0945116a5fa5cfc90291de0675b9a28
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/allocate_stat_1.f90
@@ -0,0 +1,17 @@
+! { dg-do run }
+! Check whether uppon failure no run-time error is issued.
+! PR fortran/32124
+!
+program mem
+  implicit none
+  real(8), allocatable :: A(:,:,:,:)
+  integer :: status
+
+  status = 0
+  allocate(A(huge(0),huge(0),huge(0),huge(0)),stat=status) ! this should fail
+  if(status == 0) call abort()
+
+  status = 0
+  deallocate(A,stat=status)
+  if(status == 0) call abort()
+end program mem