2 ! { dg-options "-Winteger-division" }
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" }