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