! { dg-do compile }
! { dg-options "-Winteger-division" }
! PR fortran/108592 - warn only once for truncation of integer division

program foo
  if (8 < (20/9)) stop 1 ! { dg-bogus "Integer division.*Integer division" }
! { dg-message "Integer division truncated" "" { target *-*-* } .-1 }
end program