URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [no_range_check_2.f90] - Diff between revs 302 and 384

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