This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Further test cases for PR fortran/3743
- From: "Billinghurst, David (CRTS)" <David dot Billinghurst at riotinto dot com>
- To: <gcc-patches at gcc dot gnu dot org>
- Date: Wed, 30 Jan 2002 13:06:35 +0800
- Subject: Further test cases for PR fortran/3743
These four test cases check the different paths through the intrinsic comparison code patched for PR fortran/3743. They all fail on irix before the fixes, but pass after my patch posted earlier today.
2002-01-30 David Billinghurst <David.Billinghurst@riotinto.com>
* 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
--- /dev/null Wed Jan 30 15:29:32 2002
+++ g77.dg/pr3743-1.f Wed Jan 30 14:40:37 2002
@@ -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
--- /dev/null Wed Jan 30 15:29:32 2002
+++ g77.dg/pr3743-2.f Wed Jan 30 14:39:39 2002
@@ -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
+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
--- /dev/null Wed Jan 30 15:29:32 2002
+++ g77.dg/pr3743-4.f Wed Jan 30 14:39:58 2002
@@ -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