diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com> | 2002-02-03 00:43:23 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2002-02-03 00:43:23 +0000 |
| commit | e7daa976ff12090936e9ce02dd13ee64006a736c (patch) | |
| tree | 8c8ec06150adac534c300327f38c8c6e59fab3b9 | |
| parent | 9cbcd983a9413df7092de66b177cfa3ab0ceb5f9 (diff) | |
| download | gcc-e7daa976ff12090936e9ce02dd13ee64006a736c.zip gcc-e7daa976ff12090936e9ce02dd13ee64006a736c.tar.gz gcc-e7daa976ff12090936e9ce02dd13ee64006a736c.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/pr3743-1.f | 7 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/pr3743-2.f | 8 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/pr3743-3.f | 8 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/pr3743-4.f | 8 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/pr3743.f | 16 |
6 files changed, 39 insertions, 16 deletions
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 |