diff options
author | Tobias Burnus <burnus@net-b.de> | 2007-05-29 00:07:23 +0200 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-05-29 00:07:23 +0200 |
commit | e0696ded2f15686ef41dfe1ff68408e66ff873be (patch) | |
tree | a9a81a28ac7402d8835ab3e88ca4a3e2c1f14d35 /gcc/testsuite | |
parent | 3659e0cd912c59970a0521fda398738fe0502ea9 (diff) | |
download | gcc-e0696ded2f15686ef41dfe1ff68408e66ff873be.zip gcc-e0696ded2f15686ef41dfe1ff68408e66ff873be.tar.gz gcc-e0696ded2f15686ef41dfe1ff68408e66ff873be.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: New.
From-SVN: r125148
Diffstat (limited to 'gcc/testsuite')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_stat_1.f90 | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a71bc7a..863a060 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 0000000..a9c681a --- /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 |