gcc/fortran/

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / g77 / 19990218-1.f

diff --git a/gcc/testsuite/gfortran.dg/g77/19990218-1.f b/gcc/testsuite/gfortran.dg/g77/19990218-1.f
index 2ac4390..8506e4f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/19990218-1.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990218-1.f
@@ -20,6 +20,6 @@ c
         program test
         double precision a,b,c
         data a,b/1.0d-46,1.0d0/
-        c=fun(a,b)
+        c=fun(a,b) ! { dg-error "Return type mismatch of function" }
         print*,'in main: fun=',c
         end