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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 199f6ca3d1dd9ceba34f83d715c11b5ce45bca92..50d57887f5b1b2546b533477a04ebe3ad1abaab6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+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.

diff --git a/gcc/testsuite/g77.dg/pr3743-1.f b/gcc/testsuite/g77.dg/pr3743-1.f
new file mode 100644 (file)
index 0000000..fd5fb0c
--- /dev/null
+++ b/gcc/testsuite/g77.dg/pr3743-1.f
@@ -0,0 +1,7 @@
+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

diff --git a/gcc/testsuite/g77.dg/pr3743-2.f b/gcc/testsuite/g77.dg/pr3743-2.f
new file mode 100644 (file)
index 0000000..3e0eabc
--- /dev/null
+++ b/gcc/testsuite/g77.dg/pr3743-2.f
@@ -0,0 +1,8 @@
+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

diff --git a/gcc/testsuite/g77.dg/pr3743-3.f b/gcc/testsuite/g77.dg/pr3743-3.f
new file mode 100644 (file)
index 0000000..7796434
--- /dev/null
+++ b/gcc/testsuite/g77.dg/pr3743-3.f
@@ -0,0 +1,8 @@
+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

diff --git a/gcc/testsuite/g77.dg/pr3743-4.f b/gcc/testsuite/g77.dg/pr3743-4.f
new file mode 100644 (file)
index 0000000..0cb94f6
--- /dev/null
+++ b/gcc/testsuite/g77.dg/pr3743-4.f
@@ -0,0 +1,8 @@
+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

diff --git a/gcc/testsuite/g77.f-torture/compile/pr3743.f b/gcc/testsuite/g77.f-torture/compile/pr3743.f
deleted file mode 100644 (file)
index ac6f75c..0000000
--- a/gcc/testsuite/g77.f-torture/compile/pr3743.f
+++ /dev/null
@@ -1,16 +0,0 @@
-        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