1! { dg-do compile } 2program a 3 real x 4 x = tiny(x) / huge(x) ! { dg-warning "Arithmetic underflow" "" } 5end program a 6