1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/19990218-0.f b/gcc/testsuite/gfortran.dg/g77/19990218-0.f
new file mode 100644
index 000000000..57bb63841
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/19990218-0.f
@@ -0,0 +1,14 @@
+c { dg-do compile }
+        program test
+        double precision a,b,c
+        data a,b/1.0d-46,1.0d0/
+        c=fun(a,b) ! { dg-error "Return type mismatch of function" }
+        print*,'in main: fun=',c
+        end
+        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