From 7f82a4e03696bd4ab41d14a426bcd3f757e5336a Mon Sep 17 00:00:00 2001
From: Jim Monte <jimmonte@users.sourceforge.net>
Date: Sat, 25 Apr 2020 19:47:20 +0200
Subject: [PATCH] FALLTHROUGH

---
 src/frontend/parser/lexical.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/frontend/parser/lexical.c b/src/frontend/parser/lexical.c
index ee961a1b2..370ce1447 100644
--- a/src/frontend/parser/lexical.c
+++ b/src/frontend/parser/lexical.c
@@ -456,6 +456,8 @@ prompt(void)
         s = "-> ";
 
     while (*s) {
+        /* NOTE: The FALLTHROUGH comment is used to suppress a GCC warning
+         * when flag -Wimplicit-fallthrough is present */
         switch (*s) {
         case '!':
             fprintf(cp_out, "%d", cp_event);
@@ -463,6 +465,7 @@ prompt(void)
         case '\\':
             if (s[1])
                 (void) putc((*++s), cp_out);
+            /* FALLTHROUGH */
         default:
             (void) putc((*s), cp_out);
         }