gcc/testsuite/gfortran.dg/ibits_1.f90

   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 !
   7 program 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" }
  12 end program a
  13