diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2007-06-03 09:25:54 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-06-03 09:25:54 +0200 |
| commit | 4889b20e236b872403df3112167b1d81c00110fe (patch) | |
| tree | 4d63bc5ce0a0d4bd3f6b7ec256b451461858f422 /gcc | |
| parent | 439211a08df810d61028b6325cdbe3f4c69f0b16 (diff) | |
| download | gcc-4889b20e236b872403df3112167b1d81c00110fe.zip gcc-4889b20e236b872403df3112167b1d81c00110fe.tar.gz gcc-4889b20e236b872403df3112167b1d81c00110fe.tar.bz2 | |
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: Remove.
From-SVN: r125293
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_stat_1.f90 | 17 |
2 files changed, 6 insertions, 18 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 23d3294..8dd9991 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: 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 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 |