2 ! { dg-options "-fno-range-check" }
3 ! PR36515 Integer read a value overflow for an invalid integer.
4 ! This tests that -fno-range-check allows this legacy behavior at runtime.
6 character(25) :: inputline = "-2147483648"
8 read(inputline,100) smallest
10 if (smallest.ne.-2147483648) call abort