diff options
| -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 199f6ca3d1d..50d57887f5b 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 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 <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 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 <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 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 <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 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 <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 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 <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 |
