diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 53173c2f18c..3fabd80aeb9 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2018-09-20  Hafiz Abid Qadeer  <abidh@codesourcery.com>
+
+	gdb.base/reggroups.exp (fetch_reggroups): Add '_' in match pattern.
+
 2018-09-18  Sandra Loosemore  <sandra@codesourcery.com>
 
 	* gdb.base/complete-empty.exp: Skip tab-completion tests if
diff --git a/gdb/testsuite/gdb.base/reggroups.exp b/gdb/testsuite/gdb.base/reggroups.exp
index 294f90931fb..036c97b8446 100644
--- a/gdb/testsuite/gdb.base/reggroups.exp
+++ b/gdb/testsuite/gdb.base/reggroups.exp
@@ -43,7 +43,7 @@ proc fetch_reggroups {test} {
 	-re "^ Group\[ \t\]+Type\[ \t\]+\r\n" {
 	    exp_continue
 	}
-	-re "^ (\[0-9a-zA-Z-\]+)\[ \t\]+(user|internal)\[ \t\]+\r\n" {
+	-re "^ (\[_0-9a-zA-Z-\]+)\[ \t\]+(user|internal)\[ \t\]+\r\n" {
 	    lappend reggroups $expect_out(1,string)
 	    exp_continue
 	}