Plugins: Add label-text.h to CPPLIB_H so it will be installed [PR115288]
[official-gcc.git] / gcc / testsuite / gfortran.dg / ibset_1.f90
blob2ff261dbd2b0c9c1bb50ba86d2deb89c54975252
1 ! { dg-do compile }
2 program a
3 integer :: i = 42
4 integer l
5 l = ibset(i, -1) ! { dg-error "must be nonnegative" }
6 l = ibset(i, 65) ! { dg-error "must be less than" }
7 end program a