Warn if using return at top-level with an argument

Fixes [Bug #14062]

1 files changed, 3 insertions, 0 deletions

diff --git a/compile.c b/compile.c
index 7d71f26208..774dadfc79 100644
--- a/compile.c
+++ b/compile.c
@@ -6372,6 +6372,9 @@ compile_return(rb_iseq_t *iseq, LINK_ANCHOR *const ret, const NODE *const node,
 	switch (t) {
 	  case ISEQ_TYPE_TOP:
 	  case ISEQ_TYPE_MAIN:
+            if (retval) {
+                rb_warn("argument of top-level return is ignored");
+            }
 	    if (is == iseq) {
 		/* plain top-level, leave directly */
 		type = ISEQ_TYPE_METHOD;