diff --git a/gcc/fortran/dump-parse-tree.cc b/gcc/fortran/dump-parse-tree.cc
index b081bbfc135a..1580a7ee666c 100644
--- a/gcc/fortran/dump-parse-tree.cc
+++ b/gcc/fortran/dump-parse-tree.cc
@@ -1994,7 +1994,9 @@ show_omp_clauses (gfc_omp_clauses *omp_clauses)
 	case OMP_DEVICE_TYPE_HOST: s = "host"; break;
 	case OMP_DEVICE_TYPE_NOHOST: s = "nohost"; break;
 	case OMP_DEVICE_TYPE_ANY: s = "any"; break;
-	case OMP_DEVICE_TYPE_UNSET: gcc_unreachable ();
+	case OMP_DEVICE_TYPE_UNSET:
+	default:
+	  gcc_unreachable ();
 	}
       fputs (" DEVICE_TYPE(", dumpfile);
       fputs (s, dumpfile);