Imported gcc-4.4.3

[msp430-gcc.git] / gcc / testsuite / g77.dg / pr5473.f

diff --git a/gcc/testsuite/g77.dg/pr5473.f b/gcc/testsuite/g77.dg/pr5473.f
deleted file mode 100644 (file)
index 41a6bdb..0000000
--- a/gcc/testsuite/g77.dg/pr5473.f
+++ /dev/null
@@ -1,15 +0,0 @@
-      program pr5473
-c Derived from g77.f-torture/execute/intrinsic-unix-bessel.f
-c Origin: David Billinghurst <David.Billinghurst@riotinto.com>
-c { dg-do compile }
-      real x, a
-      double precision dx, da
-      integer*8 m
-      x = 2.0
-      dx = x
-      m = 2
-      a = BESJN(m,x) ! { dg-error "incorrect type" "incorrect type" }
-      a = BESYN(m,x) ! { dg-error "incorrect type" "incorrect type" }
-      da = DBESJN(m,dx) ! { dg-error "incorrect type" "incorrect type" }
-      da = DBESYN(m,dx) ! { dg-error "incorrect type" "incorrect type" }
-      end