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