re PR fortran/32124 (Execution stops with stat= in ALLOCATE)

2007-05-28  Tobias Burnus  <burnus@net-b.de>

       PR fortran/32124
       * gfortran.dg/allocate_stat_1.f90: New.

From-SVN: r125148

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/allocate_stat_1.f90

+! { 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