From: David Billinghurst <David.Billinghurst@riotinto.com>
Date: Sun, 3 Feb 2002 00:43:23 +0000 (+0000)
Subject: pr3743.f: Delete
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e7daa976ff12090936e9ce02dd13ee64006a736c;p=gcc.git

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 199f6ca3d1d..50d57887f5b 100644
--- 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
index 00000000000..fd5fb0c426d
--- /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
index 00000000000..3e0eabc15f7
--- /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
index 00000000000..77964341506
--- /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
index 00000000000..0cb94f62d21
--- /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
index ac6f75cfa4f..00000000000
--- 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