diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/module.exp | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 395a3cc..1075a1d 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2019-10-17 Tom de Vries <tdevries@suse.de> + + * gdb.fortran/module.exp: Allow info variables to print info for files + other than module.f90. + 2019-10-16 Andrew Burgess <andrew.burgess@embecosm.com> * gdb.fortran/module.exp: Extend with 'info variables' test. diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp index 276f7dc..a2aff3c 100644 --- a/gdb/testsuite/gdb.fortran/module.exp +++ b/gdb/testsuite/gdb.fortran/module.exp @@ -53,7 +53,10 @@ gdb_test "info variables -n" \ "33:\[ \t\]+${int_type} modmany::var_c;" \ "33:\[ \t\]+${int_type} modmany::var_i;" \ "37:\[ \t\]+${int_type} moduse::var_x;" \ - "37:\[ \t\]+${int_type} moduse::var_y;" ] + "37:\[ \t\]+${int_type} moduse::var_y;(" \ + "" \ + "File .*:(" \ + "$decimal:.*)+)*"] # Do not use simple single-letter names as GDB would pick up for expectedly |