diff options
| author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2010-09-22 19:22:44 +0000 |
|---|---|---|
| committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2010-09-22 19:22:44 +0000 |
| commit | c2b0a2291a7d54a96c2f7a7b17b917902f5b64e0 (patch) | |
| tree | 130277de7ac8ffa1b67e91684469deb51d48c85d /gdb/testsuite | |
| parent | 7286ec15a4e2c255d89bac7a202912cc64d32f36 (diff) | |
| download | gdb-c2b0a2291a7d54a96c2f7a7b17b917902f5b64e0.zip gdb-c2b0a2291a7d54a96c2f7a7b17b917902f5b64e0.tar.gz gdb-c2b0a2291a7d54a96c2f7a7b17b917902f5b64e0.tar.bz2 | |
gdb/
* dwarf2read.c (die_needs_namespace) <DW_TAG_variable>: Add also
DW_TAG_constant.
gdb/testsuite/
* gdb.fortran/module.exp (fully qualified name of DW_TAG_constant):
New test.
* gdb.fortran/module.f90 (mod1) <var_const>: New constant.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/module.exp | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/module.f90 | 2 |
3 files changed, 10 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 5d04cd9..40a89ff 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2010-09-22 Jan Kratochvil <jan.kratochvil@redhat.com> + + * gdb.fortran/module.exp (fully qualified name of DW_TAG_constant): + New test. + * gdb.fortran/module.f90 (mod1) <var_const>: New constant. + 2010-09-22 Joel Brobecker <brobecker@adacore.com> * gdb.dwarf2/dw2-const.S: Use .4byte to reference the target diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp index fabf660..f81d2dc 100644 --- a/gdb/testsuite/gdb.fortran/module.exp +++ b/gdb/testsuite/gdb.fortran/module.exp @@ -26,6 +26,8 @@ if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f77}] } { # The current source language is "auto; currently fortran". gdb_test "p modmany::var_i" " = 14" "stopped language detection" +gdb_test "print mod1::var_const" " = 20" "fully qualified name of DW_TAG_constant" + if ![runto MAIN__] then { perror "couldn't run to breakpoint MAIN__" continue diff --git a/gdb/testsuite/gdb.fortran/module.f90 b/gdb/testsuite/gdb.fortran/module.f90 index a8428cb..4e014c9 100644 --- a/gdb/testsuite/gdb.fortran/module.f90 +++ b/gdb/testsuite/gdb.fortran/module.f90 @@ -15,6 +15,8 @@ module mod1 integer :: var_i = 1 + integer :: var_const + parameter (var_const = 20) end module mod1 module mod2 |