From 8e077183b4b711155a3270b25bd7e901b3546fb9 Mon Sep 17 00:00:00 2001
From: Richard Stallman <rms@gnu.org>
Date: Tue, 7 Jul 1992 01:09:25 +0000
Subject: [PATCH] (finish_function): If return type of `main' is not `int',

warn instead of doing DEFAULT_MAIN_RETURN.

From-SVN: r1486
---
 gcc/c-decl.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gcc/c-decl.c b/gcc/c-decl.c
index c9d2815b3af..4f004716280 100644
--- a/gcc/c-decl.c
+++ b/gcc/c-decl.c
@@ -5786,8 +5786,13 @@ finish_function (nested)
 #ifdef DEFAULT_MAIN_RETURN
   if (! strcmp (IDENTIFIER_POINTER (DECL_NAME (fndecl)), "main"))
     {
-      /* Make it so that `main' always returns success by default.  */
-      DEFAULT_MAIN_RETURN;
+      if (TREE_TYPE (fndecl) != integer_type_node)
+	warning_with_decl (fndecl, "return type of `%s' is not `int'");
+      else
+	{
+	  /* Make it so that `main' always returns success by default.  */
+	  DEFAULT_MAIN_RETURN;
+	}
     }
 #endif
 
-- 
2.30.2