[multiple changes]

2001-07-20  David Billinghurst <David.Billinghurst@riotinto.org>

	* g77.f-torture/compile/pr3743.f:  New test

2001-07-20  David Billinghurst <David.Billinghurst@riotinto.com>

	* g77.f-torture/execute/f90-intrinsic-bit.f: New test

From-SVN: r44192

gcc/testsuite/ChangeLog

+2001-07-20  David Billinghurst <David.Billinghurst@riotinto.org>
+
+	* g77.f-torture/compile/pr3743.f:  New test
+
+2001-07-20  David Billinghurst <David.Billinghurst@riotinto.com>
+
+	* g77.f-torture/execute/f90-intrinsic-bit.f: New test
+
 2001-07-19  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
 
 	* g++.old-deja/g++.pt/static3.C: Removed alpha*-*-osf* XFAIL.

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

+        program pr3743
+c On mips-sgi-irix6.5 get
+c
+c         i3 = ISHFT(i,BIT_SIZE(i))
+c              ^
+c Reference to intrinsic `ISHFT' at (^) invalid -- 
+c one or more arguments have incorrect type
+c
+c     David Billinghurst <David.Billinghurst@riotinto.com>
+c
+      integer   i, i2, i3
+      i  = 3
+      i2 = BIT_SIZE(i)
+      i3 = ISHFT(i,i2)
+      i3 = ISHFT(i,BIT_SIZE(i))
+      end