From: billingd <billingd@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 3 Feb 2002 00:43:23 +0000 (+0000)
Subject: 2002-02-03  David Billinghurst <David.Billinghurst@riotinto.com>
X-Git-Tag: upstream/4.9.2~88939
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2bd48b7b44cefb02d6804ee9e9861a30e033af25;p=platform%2Fupstream%2Flinaro-gcc.git

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.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@49450 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 199f6ca..50d5788 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 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
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
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
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
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