From b6749273120e7354f33d60f6974c55c7e1328387 Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Mon, 27 Mar 2017 20:51:58 +0200 Subject: [PATCH] list_read.c: Insert /* Fall through. 2017-03-27 Dominique d'Humieres * io/list_read.c: Insert /* Fall through. */ in the macro CASE_SEPARATORS in order to silence warnings. From-SVN: r246507 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/list_read.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 12e3f1fa696..d585b214833 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2017-03-27 Dominique d'Humieres + + * io/list_read.c: Insert /* Fall through. */ in the macro + CASE_SEPARATORS in order to silence warnings. + 2017-03-25 Jerry DeLisle PR libgfortran/78881 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 39805baaeab..5514d19edae 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -51,7 +51,8 @@ typedef unsigned char uchar; #define CASE_DIGITS case '0': case '1': case '2': case '3': case '4': \ case '5': case '6': case '7': case '8': case '9' -#define CASE_SEPARATORS case ' ': case ',': case '/': case '\n': \ +#define CASE_SEPARATORS /* Fall through. */ \ + case ' ': case ',': case '/': case '\n': \ case '\t': case '\r': case ';' /* This macro assumes that we're operating on a variable. */ -- 2.30.2