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