1 # Copyright
2019-2023 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this
program.
If not
, see
<http
://www.gnu.org
/licenses
/>.
16 # This file tests GDB
's handling of 'set print
max-depth
' for nested
19 load_lib "fortran.exp"
21 require allow_fortran_tests
23 standard_testfile .f90
25 if { [prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}] } {
29 if { ![fortran_runto_main] } {
30 perror "Could not run to main."
34 gdb_breakpoint [gdb_get_line_number "stop-here"]
35 gdb_continue_to_breakpoint "stop-here" ".*stop-here.*"
37 gdb_print_expr_at_depths "var" {"\\(\\.\\.\\.\\)" \
38 "\\( d = \\(\\.\\.\\.\\) \\)" \
39 "\\( d = \\( string = 'abcde
', c = \\(\\.\\.\\.\\) \\) \\)" \
40 "\\( d = \\( string = 'abcde
', c = \\( b = \\(\\.\\.\\.\\), array = \\(\\.\\.\\.\\) \\) \\) \\)" \
41 "\\( d = \\( string = 'abcde
', c = \\( b = \\( a = 1 \\), array = \\(0, 0, 0, 0, 0\\) \\) \\) \\)" }