1 files changed, 7 insertions, 0 deletions
diff --git a/tests/modula2.exp b/tests/modula2.exp
index 75ee4d9..85e560e 100644
--- a/tests/modula2.exp
+++ b/tests/modula2.exp
@@ -83,18 +83,25 @@ hash (str, len)
     {
       default:
         hval += asso_values[(unsigned char)str[7]];
+      /*FALLTHROUGH*/
       case 7:
         hval += asso_values[(unsigned char)str[6]];
+      /*FALLTHROUGH*/
       case 6:
         hval += asso_values[(unsigned char)str[5]];
+      /*FALLTHROUGH*/
       case 5:
         hval += asso_values[(unsigned char)str[4]];
+      /*FALLTHROUGH*/
       case 4:
         hval += asso_values[(unsigned char)str[3]];
+      /*FALLTHROUGH*/
       case 3:
         hval += asso_values[(unsigned char)str[2]];
+      /*FALLTHROUGH*/
       case 2:
         hval += asso_values[(unsigned char)str[1]];
+      /*FALLTHROUGH*/
       case 1:
         hval += asso_values[(unsigned char)str[0]];
         break;