[QuadFP] Add missing FLANG_FALLTHROUGH; NFC

Fix quad-precision FP code which had caused -Wimplicit-fallthrough warnings.

Author: bryanpkc

tools/flang1/flang1exe/ast.c

@@ -8868,11 +8868,13 @@ cngcon(INT oldval, int oldtyp, int newtyp)
       switch (from) {
       case TY_CMPLX:
         oldval = CONVAL1G(oldval);
+        FLANG_FALLTHROUGH;
       case TY_REAL:
         xftoq(oldval, num);
         break;
       case TY_DCMPLX:
         oldval = CONVAL1G(oldval);
+        FLANG_FALLTHROUGH;
       case TY_DBLE:
         num1[0] = CONVAL1G(oldval);
         num1[1] = CONVAL2G(oldval);

tools/flang1/flang1exe/lowerexp.c

@@ -1064,6 +1064,7 @@ static int conv_quad_ilm(int ast, int ilm, int dtype)
   case TY_SINT:
   case TY_SLOG:
     ilm = conv_int_ilm(ast, ilm, dtype);
+    FLANG_FALLTHROUGH;
   case TY_LOG:
   case TY_INT:
     ilm = plower("oi", "QFLOAT", ilm);

tools/flang1/flang1exe/scan.c

@@ -4461,9 +4461,9 @@ alpha(void)
     if (idlen == 8 && *cp == '(' && strncmp(id, "operator", 8) == 0) {
       scmode = SCM_OPERATOR;
     }
-  /* fall through */
-  fall_thru_scm_ident:
+    FLANG_FALLTHROUGH;
   case SCM_IDENT: /* look only for identifiers */
+  fall_thru_scm_ident:
     if (bind_state == B_RPAREN_FOUND) {
       if ((strncmp(id, "result", 6) == 0))
         bind_state = B_RESULT_FOUND;

tools/flang1/flang1exe/semutil.c

@@ -485,15 +485,14 @@ cngtyp2(SST *old, DTYPE newtyp, bool allowPolyExpr)
     case TY_DBLE:
       break;
 #ifdef TARGET_SUPPORTS_QUADFP
-    /* fall thru ... */
     case TY_QUAD:
       break;
 #endif
     case TY_CHAR:
     case TY_NCHAR:
     case TY_STRUCT:
     case TY_DERIVED:
-    /* fall thru ... */
+      FLANG_FALLTHROUGH;
     default:
       goto type_error;
     }
@@ -524,15 +523,14 @@ cngtyp2(SST *old, DTYPE newtyp, bool allowPolyExpr)
     case TY_DBLE:
       break;
 #ifdef TARGET_SUPPORTS_QUADFP
-    /* fall thru ... */
     case TY_QUAD:
       break;
 #endif
     case TY_CHAR:
     case TY_NCHAR:
     case TY_STRUCT:
     case TY_DERIVED:
-    /* fall thru ... */
+      FLANG_FALLTHROUGH;
     default:
       goto type_error;
     }
@@ -559,15 +557,14 @@ cngtyp2(SST *old, DTYPE newtyp, bool allowPolyExpr)
     case TY_DBLE:
       break;
 #ifdef TARGET_SUPPORTS_QUADFP
-    /* fall thru ... */
     case TY_QUAD:
       break;
 #endif
     case TY_CHAR:
     case TY_NCHAR:
     case TY_STRUCT:
     case TY_DERIVED:
-    /* fall thru ... */
+      FLANG_FALLTHROUGH;
     default:
       goto type_error;
     }
@@ -595,15 +592,14 @@ cngtyp2(SST *old, DTYPE newtyp, bool allowPolyExpr)
     case TY_REAL:
       break;
 #ifdef TARGET_SUPPORTS_QUADFP
-    /* fall thru to */
     case TY_QUAD:
       break;
 #endif
     case TY_CHAR:
     case TY_NCHAR:
     case TY_STRUCT:
     case TY_DERIVED:
-    /* fall thru ... */
+      FLANG_FALLTHROUGH;
     default:
       goto type_error;
     }
@@ -618,27 +614,27 @@ cngtyp2(SST *old, DTYPE newtyp, bool allowPolyExpr)
     case TY_SINT:
       cngtyp(old, DT_INT);
       SST_DTYPEP(old, DT_INT);
-    /* fall thru ... */
+      FLANG_FALLTHROUGH;
     case TY_LOG:
     case TY_INT:
     case TY_LOG8:
     case TY_INT8:
       break;
     case TY_DCMPLX:
       mkexpr1(old);
-    /* fall thru to */
+      FLANG_FALLTHROUGH;
     case TY_DBLE:
       break;
     case TY_CMPLX:
       mkexpr1(old);
-    /* fall thru to */
+      FLANG_FALLTHROUGH;
     case TY_REAL:
       break;
     case TY_CHAR:
     case TY_NCHAR:
     case TY_STRUCT:
     case TY_DERIVED:
-    /* fall thru ... */
+      FLANG_FALLTHROUGH;
     default:
       goto type_error;
     }
@@ -681,7 +677,7 @@ cngtyp2(SST *old, DTYPE newtyp, bool allowPolyExpr)
     case TY_NCHAR:
     case TY_STRUCT:
     case TY_DERIVED:
-    /* fall thru ... */
+      FLANG_FALLTHROUGH;
 
     default:
       goto type_error;
@@ -723,7 +719,7 @@ cngtyp2(SST *old, DTYPE newtyp, bool allowPolyExpr)
     case TY_NCHAR:
     case TY_STRUCT:
     case TY_DERIVED:
-    /* fall thru ... */
+      FLANG_FALLTHROUGH;
 
     default:
       goto type_error;
@@ -1160,7 +1156,7 @@ mkexpr1(SST *stkptr)
       if (sptr == intast_sym[I_N_PES])
         return ref_pd(stkptr, ITEM_END);
 #endif
-    /*  fall thru  */
+      FLANG_FALLTHROUGH;
     case ST_INTRIN:
     case ST_GENERIC:
       if (sem.dinit_data) {
@@ -1482,8 +1478,8 @@ mklvalue(SST *stkptr, int stmt_type)
         else
           setimplicit(sptr);
       }
-      // fall through
       FLANG_FALLTHROUGH;
+
     case ST_PROC: /* Function/intrinsic reference used as an lvalue */
       if (stmt_type == 3) {
         SST_ASTP(stkptr, mk_id(sptr));

tools/flang2/flang2exe/semutil0.cpp

@@ -726,11 +726,13 @@ cngcon(INT oldval, DTYPE oldtyp, DTYPE newtyp)
       switch (from) {
       case TY_CMPLX:
         oldval = CONVAL1G(oldval);
+        FLANG_FALLTHROUGH;
       case TY_REAL:
         xftoq(oldval, num);
         break;
       case TY_DCMPLX:
         oldval = CONVAL1G(oldval);
+        FLANG_FALLTHROUGH;
       case TY_DBLE:
         num1[0] = CONVAL1G(oldval);
         num1[1] = CONVAL2G(oldval);