From 5e13cf25436bf72d851d81f132fcd49b0c636607 Mon Sep 17 00:00:00 2001 From: Bernhard Heckel Date: Fri, 10 Jun 2016 11:16:49 +0200 Subject: [PATCH] Fortran: Testsuite, non-local references in nested functions. Non-local references in nested functions are usually implemented by using DWARF static link. This feature was added with commit 63e43d3aedb8b1112899c2d0ad74cbbee687e5d6 (DWARF: handle non-local references in nested functions) but a testcase was missing in Fortran. 2016-06-10 Bernhard Heckel gdb/Testsuite/Changelog: * gdb.fortran/nested-funcs.exp: New. * gdb.fortran/nested-funcs.f90: New. --- gdb/testsuite/ChangeLog | 5 ++ gdb/testsuite/gdb.fortran/nested-funcs.exp | 64 ++++++++++++++++++++++ gdb/testsuite/gdb.fortran/nested-funcs.f90 | 50 +++++++++++++++++ 3 files changed, 119 insertions(+) create mode 100755 gdb/testsuite/gdb.fortran/nested-funcs.exp create mode 100755 gdb/testsuite/gdb.fortran/nested-funcs.f90 diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 19b00a10e86..eda7b99a59e 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-06-10 Bernhard Heckel + + * gdb.fortran/nested-funcs.exp: New. + * gdb.fortran/nested-funcs.f90: New. + 2016-06-09 Toshihito Kikuchi * gdb.base/examine-backward.c: New file. diff --git a/gdb/testsuite/gdb.fortran/nested-funcs.exp b/gdb/testsuite/gdb.fortran/nested-funcs.exp new file mode 100755 index 00000000000..976aa22a05b --- /dev/null +++ b/gdb/testsuite/gdb.fortran/nested-funcs.exp @@ -0,0 +1,64 @@ +# Copyright 2016 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# This testcase is supposed to test DWARF static link which is usually +# used together with nested functions. + +if { [skip_fortran_tests] } { return -1 } + +standard_testfile .f90 +load_lib "fortran.exp" + +if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}]} { + return -1 +} + +if ![runto MAIN__] then { + perror "couldn't run to breakpoint MAIN__" + continue +} + +# Test if we can access local and +# non-local variables defined one level up. +gdb_breakpoint [gdb_get_line_number "! BP_outer"] +gdb_continue_to_breakpoint "! BP_outer" ".*! BP_outer" +gdb_test "print index" "= 13" "print index at BP_outer" +gdb_test "set index = 42" +gdb_test "print index" "= 42" "print index at BP_outer, manipulated" +gdb_test "print local_int" "= 19" "print local_int in outer function" + +# Non-local variable should be affected in one frame up as well. +gdb_test "up" +gdb_test "print index" "= 42" "print index at BP1, one frame up" + +# Test if we can access local and +# non-local variables defined two level up. +gdb_breakpoint [gdb_get_line_number "! BP_inner"] +gdb_continue_to_breakpoint "! BP_inner" ".*! BP_inner" +gdb_test "print index" "= 42" "print index at BP_inner" +gdb_test "print v_state%code" "= 61" "print v_state%code at BP_inner" +gdb_test "print local_int" "= 17" "print local_int in inner function" + +# Test if local variable is still correct. +gdb_breakpoint [gdb_get_line_number "! BP_outer_2"] +gdb_continue_to_breakpoint "! BP_outer_2" ".*! BP_outer_2" +gdb_test "print local_int" "= 19" \ + "print local_int in outer function, after sub_nested_inner" + +# Sanity check in main. +gdb_breakpoint [gdb_get_line_number "! BP_main"] +gdb_continue_to_breakpoint "! BP_main" ".*! BP_main" +gdb_test "print index" "= 42" "print index at BP_main" +gdb_test "print v_state%code" "= 59" "print v_state%code at BP_main" diff --git a/gdb/testsuite/gdb.fortran/nested-funcs.f90 b/gdb/testsuite/gdb.fortran/nested-funcs.f90 new file mode 100755 index 00000000000..5501b3ba5ce --- /dev/null +++ b/gdb/testsuite/gdb.fortran/nested-funcs.f90 @@ -0,0 +1,50 @@ +! Copyright 2016 Free Software Foundation, Inc. +! +! This program is free software; you can redistribute it and/or modify +! it under the terms of the GNU General Public License as published by +! the Free Software Foundation; either version 3 of the License, or +! (at your option) any later version. +! +! This program is distributed in the hope that it will be useful, +! but WITHOUT ANY WARRANTY; without even the implied warranty of +! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +! GNU General Public License for more details. +! +! You should have received a copy of the GNU General Public License +! along with this program. If not, see . + +program TestNestedFuncs + + IMPLICIT NONE + + TYPE :: t_State + integer :: code + END TYPE t_State + + TYPE (t_State) :: v_state + integer index + + index = 13 + CALL sub_nested_outer + index = 11 ! BP_main + v_state%code = 27 + +CONTAINS + + SUBROUTINE sub_nested_outer + integer local_int + local_int = 19 + v_state%code = index + local_int ! BP_outer + call sub_nested_inner + local_int = 22 ! BP_outer_2 + RETURN + END SUBROUTINE sub_nested_outer + + SUBROUTINE sub_nested_inner + integer local_int + local_int = 17 + v_state%code = index + local_int ! BP_inner + RETURN + END SUBROUTINE sub_nested_inner + +end program TestNestedFuncs -- 2.30.2