list_read.c: Insert /* Fall through.

2017-03-27  Dominique d'Humieres  <dominiq@lps.ens.fr>

	* io/list_read.c: Insert /* Fall through. */ in the macro
	CASE_SEPARATORS in order to silence warnings.

From-SVN: r246507

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 12e3f1fa696bf598996496fcdc65b242f36d91c2..d585b214833fc9555c56f57c0d3d5464e0c130cb 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2017-03-27  Dominique d'Humieres  <dominiq@lps.ens.fr>
+
+       * io/list_read.c: Insert /* Fall through. */ in the macro
+       CASE_SEPARATORS in order to silence warnings.
+
 2017-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/78881

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 39805baaeabd159d93d98689d643d12f8ee12817..5514d19edae411220b1ad4d65212bef73d7014c1 100644 (file)
--- 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.  */