1! { dg-do compile } 2! 3! PR fortran/44346 4! Original test sumbitted by Vittorio Zecca, zeccav at gmail dot com. 5! Modified by Steven G. Kargl for dejagnu testsuite. 6! 7program a 8 integer :: j, i = 42 9 j = ibits(i, -1, 1) ! { dg-error "must be nonnegative" } 10 j = ibits(i, 1, -1) ! { dg-error "must be nonnegative" } 11 j = ibits(i, 100, 100) ! { dg-error "must be less than" } 12end program a 13 14