git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2007-05-29 00:07:23 +02:00 committed by Tobias Burnus
parent 3659e0cd91
commit e0696ded2f
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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> 2007-05-28 Brooks Moses <brooks.moses@codesourcery.com>
PR fortran/31972 PR fortran/31972

17
gcc/testsuite/gfortran.dg/allocate_stat_1.f90 Normal file
View File

@ -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