OSDN Git Service

* config/i386/i386.md (UNSPEC_VSIBADDR): New.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / ishft_2.f90
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