procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/32124 (Execution stops with stat= in ALLOCATE)

Browse source 
2007-05-28  Tobias Burnus  <burnus@net-b.de>

       PR fortran/32124
       * gfortran.dg/allocate_stat_1.f90: Remove.

From-SVN: r125293
This commit is contained in:
Tobias Burnus 2007-06-03 09:25:54 +02:00
parent 439211a08d
commit 4889b20e23
2 changed files with 6 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
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: Remove.
2007-06-02 H.J. Lu <hongjiu.lu@intel.com>
* gcc.target/i386/sse4_2-check.h: New.
@ -155,7 +160,7 @@
2007-05-28 Razya Ladelsky <razya@il.ibm.com>
* gcc.dg/matrix: New directory.
* gcc.dg/matrix: New directory.
2007-05-28 Tobias Burnus <burnus@net-b.de>

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

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