| # 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/> . |
| |
| # Print some single dimensional integer arrays that will have a byte |
| # stride in the debug information. |
| |
| if {[skip_fortran_tests]} { return -1 } |
| |
| standard_testfile ".f90" |
| |
| # Unfortunately recent versions of GCC broke the stride information in |
| # the DEBUG so tests in this file will fail. |
| set gcc_with_broken_stride [test_compiler_info {gcc-[89]-*}] |
| |
| if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \ |
| {debug f90}]} { |
| return -1 |
| } |
| |
| if {![runto [gdb_get_line_number "post_init"]]} then { |
| perror "couldn't run to breakpoint post_init" |
| continue |
| } |
| |
| # Test homogeneous derived type. |
| if { $gcc_with_broken_stride } { setup_kfail *-*-* gcc/92775 } |
| gdb_test "p point_dimension" "= \\\(2, 2, 2, 2, 2, 2, 2, 2, 2\\\)" |
| |
| # Test mixed type derived type. |
| if { $gcc_with_broken_stride } { setup_kfail *-*-* gcc/92775 } |
| gdb_test "p point_mixed_dimension" "= \\\(3, 3, 3, 3\\\)" |
| |
| gdb_test "p cloud_slice" " = \\\(\\\( x = 1, y = 2, z = 3 \\\)\\\)" |