?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
fix pr/45972
[official-gcc.git] / gcc / testsuite / gfortran.dg / ishft_2.f90
blob96acf0e3b9b7186b3df971d555de1c0e2de452a4
1 ! { dg-do run }
2 program ishft_2
3 if ( ishftc(3, 2, 3) /= 5 ) call abort()
4 if ( ishftc(256+3, 2, 3) /= 256+5 ) call abort()
5 if ( ishftc(1_4, 31)+1 /= -huge(1_4) ) call abort()
6 end program
Mirror of the offical gcc git repository hosted at gcc.gnu.org