2 ! { dg-options "-Winteger-division" }
3 ! PR fortran/108592 - warn only once for truncation of integer division
6 if (8 < (20/9)) stop 1 ! { dg-bogus "Integer division.*Integer division" }
7 ! { dg-message "Integer division truncated" "" { target *-*-* } .-1 }