diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-06-15 20:07:34 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-06-15 20:07:34 +0000 |
| commit | 76b33d8fc1826a1619f9f25e0ac8a2fe66a594ca (patch) | |
| tree | dc3783706782480c844b7a82b8f434224becc55e /gcc | |
| parent | a9608b5743857c8e672f5e6437c25cf41a63c0cb (diff) | |
| download | gcc-76b33d8fc1826a1619f9f25e0ac8a2fe66a594ca.zip gcc-76b33d8fc1826a1619f9f25e0ac8a2fe66a594ca.tar.gz gcc-76b33d8fc1826a1619f9f25e0ac8a2fe66a594ca.tar.bz2 | |
re PR fortran/36515 (Integer read from stdin yields a value overflow for a valid integer.)
2008-06-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/36515
* gfortran.dg/no_range_check_2.f90: New test.
From-SVN: r136823
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/no_range_check_2.f90 | 11 |
2 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 95a49dc..6084985 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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. diff --git a/gcc/testsuite/gfortran.dg/no_range_check_2.f90 b/gcc/testsuite/gfortran.dg/no_range_check_2.f90 new file mode 100644 index 0000000..4b45c4c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/no_range_check_2.f90 @@ -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 |