1! { dg-do run } 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. 5program int_range 6character(25) :: inputline = "-2147483648" 7integer*4 smallest 8read(inputline,100) smallest 9100 format(1i11) 10if (smallest.ne.-2147483648) call abort 11end 12