6 lines
123 B
Fortran
6 lines
123 B
Fortran
|
! { dg-do compile }
|
||
|
program a
|
||
|
real x
|
||
|
x = tiny(x) / huge(x) ! { dg-warning "Arithmetic underflow" "" }
|
||
|
end program a
|