1! { dg-do compile }
2! { dg-options "-Winteger-division" }
3program main
4  print *,10**(-3) ! { dg-warning "Negative exponent of integer has zero result" }
5end program main
6