1 # Copyright
2019-2024 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 # Print some single dimensional
integer arrays that will have a byte
17 # stride in the debug information.
19 require allow_fortran_tests
21 standard_testfile
".f90"
23 # Unfortunately recent versions of GCC broke the stride information in
24 # the DEBUG so tests in this file will fail.
25 set gcc_with_broken_stride
[test_compiler_info
{gfortran
-[89]-*} f90
]
27 if {[prepare_for_testing $
{testfile
}.exp $
{testfile
} $
{srcfile
} \
32 if {![runto
[gdb_get_line_number
"post_init"]]} {
36 # Test homogeneous derived type.
37 if { $gcc_with_broken_stride
} { setup_kfail
*-*-* gcc
/92775 }
38 gdb_test
"p point_dimension" "= \\\(2, 2, 2, 2, 2, 2, 2, 2, 2\\\)"
40 # Test mixed type derived type.
41 if { $gcc_with_broken_stride
} { setup_kfail
*-*-* gcc
/92775 }
42 gdb_test
"p point_mixed_dimension" "= \\\(3, 3, 3, 3\\\)"
44 gdb_test
"p cloud_slice" " = \\\(\\\( x = 1, y = 2, z = 3 \\\)\\\)"