1! { dg-do compile }
2! { dg-options "-Winteger-division" }
3program main
4  integer, parameter :: n = 23
5  integer, parameter :: m = n*(n+1)/2  ! No warning
6  integer, parameter :: i = n*(n+1)/17 ! { dg-warning "Integer division truncated to constant" }
7  print *, 3/5 ! { dg-warning "Integer division truncated to constant" }
8end program main
9