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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125293 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 23d3294..8dd9991 100644 (file)
--- 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: Remove.
+
 2007-06-02  H.J. Lu  <hongjiu.lu@intel.com>
 
        * gcc.target/i386/sse4_2-check.h: New.
@@ -155,7 +160,7 @@
 
 2007-05-28  Razya Ladelsky  <razya@il.ibm.com>
 
-        * gcc.dg/matrix: New directory.
+       * gcc.dg/matrix: New directory.
 
 2007-05-28  Tobias Burnus  <burnus@net-b.de>
 

diff --git a/gcc/testsuite/gfortran.dg/allocate_stat_1.f90 b/gcc/testsuite/gfortran.dg/allocate_stat_1.f90
deleted file mode 100644 (file)
index a9c681a..0000000
--- a/gcc/testsuite/gfortran.dg/allocate_stat_1.f90
+++ /dev/null
@@ -1,17 +0,0 @@
-! { 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