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

PR 48587 Newunit allocator 

2016-10-15  Janne Blomqvist  <jb@gcc.gnu.org>

        PR libfortran/48587
        * gfortran.dg/negative_unit2.f90: New testcase.

From-SVN: r241200
This commit is contained in:
Janne Blomqvist 2016-10-15 16:15:26 +03:00
parent c04d4ede17
commit e2a02db769
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/testsuite/gfortran.dg/negative_unit2.f90 Normal file
View File

@ -0,0 +1,9 @@
! { dg-do run }
! Test case submitted by Dominique d'Humieres
program negative_unit2
integer :: i, j
! i should be <= NEWUNIT_FIRST in libgfortran/io/unit.c
i = -100
write(unit=i,fmt=*, iostat=j) 10
if (j == 0) call abort
end program negative_unit2