Imported gcc-4.4.3

[msp430-gcc.git] / gcc / testsuite / g77.f-torture / noncompile / 19990218-1.f

diff --git a/gcc/testsuite/g77.f-torture/noncompile/19990218-1.f b/gcc/testsuite/g77.f-torture/noncompile/19990218-1.f
deleted file mode 100644 (file)
index 25b7c5b..0000000
--- a/gcc/testsuite/g77.f-torture/noncompile/19990218-1.f
+++ /dev/null
@@ -1,13 +0,0 @@
-        double precision function fun(a,b)
-        double precision a,b
-        print*,'in sub: a,b=',a,b
-        fun=a*b
-        print*,'in sub: fun=',fun
-        return
-        end
-        program test
-        double precision a,b,c
-        data a,b/1.0d-46,1.0d0/
-        c=fun(a,b)
-        print*,'in main: fun=',c
-        end