6 lines
68 B
Fortran
6 lines
68 B
Fortran
|
! { dg-do run }
|
||
|
|
|
||
|
|
if (modulo (-8., -5.) .ne. -3.) call abort ()
|
||
|
|
|
||
|
|
end
|