| # Copyright 2019-2021 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 <http://www.gnu.org/licenses/>. |
| |
| # This file tests GDB's handling of 'set print max-depth' for nested |
| # fortran types. |
| |
| load_lib "fortran.exp" |
| |
| if { [skip_fortran_tests] } { continue } |
| |
| standard_testfile .f90 |
| |
| if { [prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}] } { |
| return -1 |
| } |
| |
| if { ![fortran_runto_main] } { |
| perror "Could not run to main." |
| continue |
| } |
| |
| gdb_breakpoint [gdb_get_line_number "stop-here"] |
| gdb_continue_to_breakpoint "stop-here" ".*stop-here.*" |
| |
| gdb_print_expr_at_depths "var" {"\\(\\.\\.\\.\\)" \ |
| "\\( d = \\(\\.\\.\\.\\) \\)" \ |
| "\\( d = \\( string = 'abcde', c = \\(\\.\\.\\.\\) \\) \\)" \ |
| "\\( d = \\( string = 'abcde', c = \\( b = \\(\\.\\.\\.\\), array = \\(\\.\\.\\.\\) \\) \\) \\)" \ |
| "\\( d = \\( string = 'abcde', c = \\( b = \\( a = 1 \\), array = \\(0, 0, 0, 0, 0\\) \\) \\) \\)" } |
