* 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
+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.
--- /dev/null
+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
+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
--- /dev/null
+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
+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
+++ /dev/null
- 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