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