blob: 224b1d8d1fcc73046b2d40e0825cfa59429dcd86 (
plain)
1
2
3
4
5
6
7
8
|
! { 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
|
