diff options
author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2010-06-02 23:01:00 +0000 |
---|---|---|
committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2010-06-02 23:01:00 +0000 |
commit | b0418c906a7a9e4371a31871165d9299c924cb4b (patch) | |
tree | 89a05cb9a477ca776adce41081d56925898b54b0 /gdb/testsuite/gdb.fortran | |
parent | e0c0dff31537b936df729b98dd7a9cf83a3d9b4d (diff) | |
download | gdb-b0418c906a7a9e4371a31871165d9299c924cb4b.tar.gz |
gdb/
* symfile.c (init_filename_language_table): New extensions .for, .FOR,
.ftn, .FTN, .fpp, .FPP, .f90, .F90, .f95, .F95, .f03, .F03, .f08 and
.F08.
gdb/testsuite/
* gdb.fortran/module.exp (stopped language detection): New test.
Diffstat (limited to 'gdb/testsuite/gdb.fortran')
-rw-r--r-- | gdb/testsuite/gdb.fortran/module.exp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp index 4042b26698b..fabf6604f13 100644 --- a/gdb/testsuite/gdb.fortran/module.exp +++ b/gdb/testsuite/gdb.fortran/module.exp @@ -20,6 +20,12 @@ if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f77}] } { return -1 } +# Test automatic language detection before the inferior starts. It tests the +# effect of expected: +# (gdb) show language +# The current source language is "auto; currently fortran". +gdb_test "p modmany::var_i" " = 14" "stopped language detection" + if ![runto MAIN__] then { perror "couldn't run to breakpoint MAIN__" continue |