diff options
| author | Tom de Vries <tdevries@suse.de> | 2019-08-29 14:43:11 +0200 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2019-08-29 14:43:11 +0200 |
| commit | 8077c50dbb74ee63c038dbd3527c372dbe180fbb (patch) | |
| tree | 2637adf79c6eeb9bb2315bf9116f57e41160f47a /gdb/testsuite/gdb.fortran | |
| parent | c0d9f31dbd8765dd925e6a4b4acdb9b23d1706f6 (diff) | |
| download | fsf-binutils-gdb-8077c50dbb74ee63c038dbd3527c372dbe180fbb.zip fsf-binutils-gdb-8077c50dbb74ee63c038dbd3527c372dbe180fbb.tar.gz fsf-binutils-gdb-8077c50dbb74ee63c038dbd3527c372dbe180fbb.tar.bz2 | |
[gdb/testsuite] Fix gdb.fortran/info-types.exp regexp
The gdb.fortran/info-types.exp test-case passes with gcc 7 (though not on
openSUSE, due to the extra debug info) and fails with gcc 4.8 and gcc 8.
Fix the gdb_test regexp to fix all those cases.
gdb/testsuite/ChangeLog:
2019-08-29 Tom de Vries <tdevries@suse.de>
* gdb.fortran/info-types.exp: Fix gdb_test regexp to allow more
diverse debug info.
* lib/fortran.exp (fortran_int8): New proc, based on fortran_int4.
Diffstat (limited to 'gdb/testsuite/gdb.fortran')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/info-types.exp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gdb/testsuite/gdb.fortran/info-types.exp b/gdb/testsuite/gdb.fortran/info-types.exp index 81e6739..3064628 100644 --- a/gdb/testsuite/gdb.fortran/info-types.exp +++ b/gdb/testsuite/gdb.fortran/info-types.exp @@ -31,6 +31,7 @@ if { ![runto MAIN__] } { } set integer4 [fortran_int4] +set integer8 [fortran_int8] set logical4 [fortran_logical4] set character1 [fortran_character1] @@ -41,7 +42,9 @@ gdb_test "info types" \ "File .*:" \ "\[\t \]+${character1}" \ "\[\t \]+${integer4}" \ - "\[\t \]+${logical4}" \ - "20:\[\t \]+Type __vtype_mod1_M1t1;" \ - "17:\[\t \]+Type m1t1;" \ - "22:\[\t \]+Type s1;" ] + "(\[\t \]+${integer8}" \ + ")?\[\t \]+${logical4}" \ + "(20:\[\t \]+Type __vtype_mod1_M1t1;" \ + ")?$decimal:\[\t \]+Type m1t1;" \ + "22:\[\t \]+Type s1;(" \ + ".*)?"] |