diff --git a/libgfortran/caf/single.c b/libgfortran/caf/single.c
index 5e2932ca007eca41da135bde997206400973e1d9..3eceed90087593d4bf000ca12b480cf16e74a3a5 100644
--- a/libgfortran/caf/single.c
+++ b/libgfortran/caf/single.c
@@ -2949,6 +2949,7 @@ _gfortran_caf_is_present (caf_token_t token,
 		  if (riter->next == NULL)
 		    break;
 		  /* else fall through reporting an error.  */
+		  /* FALLTHROUGH */
 		case CAF_ARR_REF_VECTOR:
 		case CAF_ARR_REF_RANGE:
 		case CAF_ARR_REF_OPEN_END:
@@ -2976,6 +2977,7 @@ _gfortran_caf_is_present (caf_token_t token,
 		  if (riter->next == NULL)
 		    break;
 		  /* else fall through reporting an error.  */
+		  /* FALLTHROUGH */
 		case CAF_ARR_REF_VECTOR:
 		case CAF_ARR_REF_RANGE:
 		case CAF_ARR_REF_OPEN_END: