From e7daa976ff12090936e9ce02dd13ee64006a736c Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Sun, 3 Feb 2002 00:43:23 +0000 Subject: [PATCH] pr3743.f: Delete 2002-02-03 David Billinghurst * 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 --- gcc/testsuite/ChangeLog | 8 ++++++++ gcc/testsuite/g77.dg/pr3743-1.f | 7 +++++++ gcc/testsuite/g77.dg/pr3743-2.f | 8 ++++++++ gcc/testsuite/g77.dg/pr3743-3.f | 8 ++++++++ gcc/testsuite/g77.dg/pr3743-4.f | 8 ++++++++ gcc/testsuite/g77.f-torture/compile/pr3743.f | 16 ---------------- 6 files changed, 39 insertions(+), 16 deletions(-) create mode 100644 gcc/testsuite/g77.dg/pr3743-1.f create mode 100644 gcc/testsuite/g77.dg/pr3743-2.f create mode 100644 gcc/testsuite/g77.dg/pr3743-3.f create mode 100644 gcc/testsuite/g77.dg/pr3743-4.f delete mode 100644 gcc/testsuite/g77.f-torture/compile/pr3743.f 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 + + * 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 * 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 +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 +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 +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 +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 -c - integer i, i2, i3 - i = 3 - i2 = BIT_SIZE(i) - i3 = ISHFT(i,i2) - i3 = ISHFT(i,BIT_SIZE(i)) - end -- 2.30.2