pr3743.f: Delete

2002-02-03  David Billinghurst <David.Billinghurst@riotinto.com>

	* g77.f-torture/compile/pr3743.f: Delete
	* g77.dg/pr3743-1.f: New test.
	* g77.dg/pr3743-2.f: New test.
	* g77.dg/pr3743-3.f: New test.
	* g77.dg/pr3743-4.f: New test.

From-SVN: r49450

gcc/testsuite/ChangeLog

+2002-02-03  David Billinghurst <David.Billinghurst@riotinto.com>
+
+	* g77.f-torture/compile/pr3743.f: Delete
+	* g77.dg/pr3743-1.f: New test.
+	* g77.dg/pr3743-2.f: New test.
+	* g77.dg/pr3743-3.f: New test.
+	* g77.dg/pr3743-4.f: New test.
+
 2002-02-02  Neil Booth  <neil@daikokuya.demon.co.uk>
 
 	* gcc.dg/cpp/uchar-1.c, uchar-2.c, uchar-3.c: New tests.

gcc/testsuite/g77.dg/pr3743-1.f

+C Test case for PR fortran/3743
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do link }
+      integer   i
+      i = bit_size(i)
+      end

gcc/testsuite/g77.dg/pr3743-2.f

+C Test case for PR fortran/3743
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do link }
+C { dg-options "-fcase-preserve -fintrin-case-upper" }
+      integer   i
+      i = BIT_SIZE(i)
+      end

gcc/testsuite/g77.dg/pr3743-3.f

+c Test case for PR fortran/3743
+c Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+c
+c { dg-do link }
+c { dg-options "-fcase-preserve -fintrin-case-lower" }
+      integer   i
+      i = bit_size(i)
+      end

gcc/testsuite/g77.dg/pr3743-4.f

+C Test case for PR fortran/3743
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do link }
+C { dg-options "-fcase-preserve -fintrin-case-initcap" }
+      integer   i
+      i = Bit_Size(i)
+      end

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