diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-03 07:25:54 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-03 07:25:54 +0000 |
| commit | d35623529bf21cf63a49db42a94e25056c85264e (patch) | |
| tree | 4d63bc5ce0a0d4bd3f6b7ec256b451461858f422 /gcc/testsuite/gfortran.dg | |
| parent | 87a96196da33506b9886d278f7cefb716d3bbf76 (diff) | |
| download | gcc-d35623529bf21cf63a49db42a94e25056c85264e.tar.gz | |
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
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_stat_1.f90 | 17 |
1 files changed, 0 insertions, 17 deletions
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 a9c681aeb09..00000000000 --- 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 |