From e0696ded2f15686ef41dfe1ff68408e66ff873be Mon Sep 17 00:00:00 2001
From: Tobias Burnus <burnus@net-b.de>
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 <burnus@net-b.de>
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 a71bc7a1c26e..863a060e4b89 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: New.
+
2007-05-28 Brooks Moses <brooks.moses@codesourcery.com>
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 000000000000..a9c681aeb094
--- /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
--
GitLab