diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ef77fdbb5c..5dd740ca6a 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2019-04-18  Tom Tromey  <tromey@adacore.com>
+
+	* process-stratum-target.h (class process_stratum_target)
+	<stratum>: Add "final".
+
 2019-04-17  Tom Tromey  <tromey@adacore.com>
 
 	* dwarf2read.c (dwarf2_init_complex_target_type): Check "tt"
diff --git a/gdb/process-stratum-target.h b/gdb/process-stratum-target.h
index fd308658fb..2e620f82e8 100644
--- a/gdb/process-stratum-target.h
+++ b/gdb/process-stratum-target.h
@@ -29,7 +29,7 @@ class process_stratum_target : public target_ops
 public:
   ~process_stratum_target () override = 0;
 
-  strata stratum () const override { return process_stratum; }
+  strata stratum () const final override { return process_stratum; }
 
   /* We must default these because they must be implemented by any
      target that can run.  */