mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 00:30:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/36515 (Integer read from stdin yields a value overflow for a valid integer.)

Browse Source 
2008-06-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/36515
	* gfortran.dg/no_range_check_2.f90: New test.

From-SVN: r136823
This commit is contained in:
Jerry DeLisle 2008-06-15 20:07:34 +00:00
parent a9608b5743
commit 76b33d8fc1
2 changed files with 16 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 @@
2008-06-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/36515
* gfortran.dg/no_range_check_2.f90: New test.
2008-06-15 Mark Shinwell <shinwell@codesourcery.com>
* lib/target-supports.exp (check_effective_target_mips_loongson): New.

11
gcc/testsuite/gfortran.dg/no_range_check_2.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do run }
! { dg-options "-fno-range-check" }
! PR36515 Integer read a value overflow for an invalid integer.
! This tests that -fno-range-check allows this legacy behavior at runtime.
program int_range
character(25) :: inputline = "-2147483648"
integer*4 smallest
read(inputline,100) smallest
100 format(1i11)
if (smallest.ne.-2147483648) call abort
end