From e0696ded2f15686ef41dfe1ff68408e66ff873be Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 29 May 2007 00:07:23 +0200 Subject: [PATCH] re PR fortran/32124 (Execution stops with stat= in ALLOCATE) 2007-05-28 Tobias Burnus PR fortran/32124 * gfortran.dg/allocate_stat_1.f90: New. From-SVN: r125148 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/allocate_stat_1.f90 | 17 +++++++++++++++++ 2 files changed, 22 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/allocate_stat_1.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a71bc7a1c26..863a060e4b8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-05-28 Tobias Burnus + + PR fortran/32124 + * gfortran.dg/allocate_stat_1.f90: New. + 2007-05-28 Brooks Moses 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 00000000000..a9c681aeb09 --- /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 -- 2.30.2