gcc/testsuite/g77.f-torture/compile/pr3743.f

   1         program pr3743
   2 c On mips-sgi-irix6.5 get
   3 c
   4 c         i3 = ISHFT(i,BIT_SIZE(i))
   5 c              ^
   6 c Reference to intrinsic `ISHFT' at (^) invalid --
   7 c one or more arguments have incorrect type
   8 c
   9 c     David Billinghurst <David.Billinghurst@riotinto.com>
  10 c
  11       integer   i, i2, i3
  12       i  = 3
  13       i2 = BIT_SIZE(i)
  14       i3 = ISHFT(i,i2)
  15       i3 = ISHFT(i,BIT_SIZE(i))
  16       end