diff options
| author | Tom de Vries <tdevries@suse.de> | 2019-10-17 10:07:05 +0200 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2019-10-17 10:07:05 +0200 |
| commit | 062f1fc13a075a34890988f3a396b5e58fc86396 (patch) | |
| tree | 401f5597e4f18f1530d57db352accc58806e0027 | |
| parent | a315e14713de0a712382b3159507c16a0975a8d1 (diff) | |
| download | gdb-062f1fc13a075a34890988f3a396b5e58fc86396.zip gdb-062f1fc13a075a34890988f3a396b5e58fc86396.tar.gz gdb-062f1fc13a075a34890988f3a396b5e58fc86396.tar.bz2 | |
[gdb/testsuite] Fix gdb.fortran/module.exp for debug info from other files
On openSUSE Leap 15.1, I get:
...
FAIL: gdb.fortran/module.exp: info variables -n
...
because the info variables command prints info also for init.c:
...
File init.c:^M
24: const int _IO_stdin_used;^M
...
while the regexps in the test-case only expect info for module.f90.
Fix this by extending the regexps.
Tested on x86_64-linux.
gdb/testsuite/ChangeLog:
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.
Change-Id: I401d8018b121fc7343f6bc8b671900349462457f
| -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 |