aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.fortran
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.fortran')
-rw-r--r--gdb/testsuite/gdb.fortran/array-repeat.exp167
-rw-r--r--gdb/testsuite/gdb.fortran/array-repeat.f9050
-rw-r--r--gdb/testsuite/gdb.fortran/array-slices-repeat.f9099
-rw-r--r--gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp2
-rw-r--r--gdb/testsuite/gdb.fortran/vla-value-sub.exp2
5 files changed, 320 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.fortran/array-repeat.exp b/gdb/testsuite/gdb.fortran/array-repeat.exp
new file mode 100644
index 0000000..bf16735
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/array-repeat.exp
@@ -0,0 +1,167 @@
+# Copyright 2022 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/>.
+
+# Test the detection and printing of repeated elements in Fortran arrays.
+
+if {[skip_fortran_tests]} { return -1 }
+
+load_lib fortran.exp
+
+# Build up the expected output for each array.
+set a9p9o "(9, 9, 9, 9, 9, 9)"
+set a1p "(1, 1, 1, 1, 1)"
+set a1p9 "(1, 1, 1, 1, 1, 9)"
+set a2po "(2, 2, 2, 2, 2)"
+set a2p "(${a2po} ${a2po} ${a2po} ${a2po} ${a2po})"
+set a2p9o "(2, 2, 2, 2, 2, 9)"
+set a2p9 "(${a2p9o} ${a2p9o} ${a2p9o} ${a2p9o} ${a2p9o} ${a9p9o})"
+set a3po "(3, 3, 3, 3, 3)"
+set a3p "(${a3po} ${a3po} ${a3po} ${a3po} ${a3po})"
+set a3p "(${a3p} ${a3p} ${a3p} ${a3p} ${a3p})"
+set a3p9o "(3, 3, 3, 3, 3, 9)"
+set a3p9 "(${a3p9o} ${a3p9o} ${a3p9o} ${a3p9o} ${a3p9o} ${a9p9o})"
+set a9p9 "(${a9p9o} ${a9p9o} ${a9p9o} ${a9p9o} ${a9p9o} ${a9p9o})"
+set a3p9 "(${a3p9} ${a3p9} ${a3p9} ${a3p9} ${a3p9} ${a9p9})"
+
+# Convert the output into a regexp.
+set r1p [string_to_regexp $a1p]
+set r1p9 [string_to_regexp $a1p9]
+set r2po [string_to_regexp $a2po]
+set r2p9o [string_to_regexp $a2p9o]
+set r2p [string_to_regexp $a2p]
+set r2p9 [string_to_regexp $a2p9]
+set r3po [string_to_regexp $a3po]
+set r3p9o [string_to_regexp $a3p9o]
+set r3p [string_to_regexp $a3p]
+set r3p9 [string_to_regexp $a3p9]
+
+set rep5 "<repeats 5 times>"
+set rep6 "<repeats 6 times>"
+
+proc array_repeat { variant } {
+ global testfile srcfile binfile
+ upvar r1p r1p r1p9 r1p9 r2po r2po r2p9o r2p9o r2p r2p r2p9 r2p9
+ upvar r3po r3po r3p9o r3p9o r3p r3p r3p9 r3p9
+ upvar a2po a2po a2p9o a2p9o a3po a3po a3p9o a3p9o
+ upvar rep5 rep5 rep6 rep6
+
+ standard_testfile "${variant}.f90"
+
+ if {[prepare_for_testing ${testfile}.exp ${variant} ${srcfile} \
+ {debug f90}]} {
+ return -1
+ }
+
+ if {![fortran_runto_main]} {
+ perror "Could not run to main."
+ continue
+ }
+
+ gdb_breakpoint [gdb_get_line_number "Break here"]
+ gdb_continue_to_breakpoint "${variant}"
+
+ with_test_prefix "${variant}: repeats=unlimited, elements=unlimited" {
+ # Check the arrays print as expected.
+ gdb_test_no_output "set print repeats unlimited"
+ gdb_test_no_output "set print elements unlimited"
+
+ gdb_test "print array_1d" "${r1p}"
+ gdb_test "print array_1d9" "${r1p9}"
+ gdb_test "print array_2d" "${r2p}"
+ gdb_test "print array_2d9" "${r2p9}"
+ gdb_test "print array_3d" "${r3p}"
+ gdb_test "print array_3d9" "${r3p9}"
+ }
+
+ with_test_prefix "${variant}: repeats=4, elements=unlimited" {
+ # Now set the repeat limit.
+ gdb_test_no_output "set print repeats 4"
+ gdb_test_no_output "set print elements unlimited"
+
+ gdb_test "print array_1d" \
+ [string_to_regexp "(1, ${rep5})"]
+ gdb_test "print array_1d9" \
+ [string_to_regexp "(1, ${rep5}, 9)"]
+ gdb_test "print array_2d" \
+ [string_to_regexp "((2, ${rep5}) ${rep5})"]
+ gdb_test "print array_2d9" \
+ [string_to_regexp "((2, ${rep5}, 9) ${rep5} (9, ${rep6}))"]
+ gdb_test "print array_3d" \
+ [string_to_regexp "(((3, ${rep5}) ${rep5}) ${rep5})"]
+ gdb_test "print array_3d9" \
+ [string_to_regexp "(((3, ${rep5}, 9) ${rep5} (9, ${rep6})) ${rep5}\
+ ((9, ${rep6}) ${rep6}))"]
+ }
+
+ with_test_prefix "${variant}: repeats=unlimited, elements=12" {
+ # Now set the element limit.
+ gdb_test_no_output "set print repeats unlimited"
+ gdb_test_no_output "set print elements 12"
+
+ gdb_test "print array_1d" "${r1p}"
+ gdb_test "print array_1d9" "${r1p9}"
+ gdb_test "print array_2d" \
+ [string_to_regexp "(${a2po} ${a2po} (2, 2, ...) ...)"]
+ gdb_test "print array_2d9" \
+ [string_to_regexp "(${a2p9o} ${a2p9o} ...)"]
+ gdb_test "print array_3d" \
+ [string_to_regexp "((${a3po} ${a3po} (3, 3, ...) ...) ...)"]
+ gdb_test "print array_3d9" \
+ [string_to_regexp "((${a3p9o} ${a3p9o} ...) ...)"]
+ }
+
+ with_test_prefix "${variant}: repeats=4, elements=12" {
+ # Now set both limits.
+ gdb_test_no_output "set print repeats 4"
+ gdb_test_no_output "set print elements 12"
+
+ gdb_test "print array_1d" \
+ [string_to_regexp "(1, ${rep5})"]
+ gdb_test "print array_1d9" \
+ [string_to_regexp "(1, ${rep5}, 9)"]
+ gdb_test "print array_2d" \
+ [string_to_regexp "((2, ${rep5}) (2, ${rep5}) (2, 2, ...) ...)"]
+ gdb_test "print array_2d9" \
+ [string_to_regexp "((2, ${rep5}, 9) (2, ${rep5}, 9) ...)"]
+ gdb_test "print array_3d" \
+ [string_to_regexp "(((3, ${rep5}) (3, ${rep5}) (3, 3, ...) ...)\
+ ...)"]
+ gdb_test "print array_3d9" \
+ [string_to_regexp "(((3, ${rep5}, 9) (3, ${rep5}, 9) ...) ...)"]
+ }
+
+ with_test_prefix "${variant}: repeats=4, elements=30" {
+ # Now set both limits.
+ gdb_test_no_output "set print repeats 4"
+ gdb_test_no_output "set print elements 30"
+
+ gdb_test "print array_1d" \
+ [string_to_regexp "(1, ${rep5})"]
+ gdb_test "print array_1d9" \
+ [string_to_regexp "(1, ${rep5}, 9)"]
+ gdb_test "print array_2d" \
+ [string_to_regexp "((2, ${rep5}) ${rep5})"]
+ gdb_test "print array_2d9" \
+ [string_to_regexp "((2, ${rep5}, 9) ${rep5} ...)"]
+ gdb_test "print array_3d" \
+ [string_to_regexp "(((3, ${rep5}) ${rep5}) ((3, ${rep5}) ...)\
+ ...)"]
+ gdb_test "print array_3d9" \
+ [string_to_regexp "(((3, ${rep5}, 9) ${rep5} ...) ...)"]
+ }
+}
+
+array_repeat "array-repeat"
+array_repeat "array-slices-repeat"
diff --git a/gdb/testsuite/gdb.fortran/array-repeat.f90 b/gdb/testsuite/gdb.fortran/array-repeat.f90
new file mode 100644
index 0000000..adb6b2a
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/array-repeat.f90
@@ -0,0 +1,50 @@
+! Copyright 2022 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/>.
+
+!
+! Start of test program.
+!
+program test
+
+ ! Declare variables used in this test.
+ integer, dimension (-2:2) :: array_1d
+ integer, dimension (-2:3) :: array_1d9
+ integer, dimension (-2:2, -2:2) :: array_2d
+ integer, dimension (-2:3, -2:3) :: array_2d9
+ integer, dimension (-2:2, -2:2, -2:2) :: array_3d
+ integer, dimension (-2:3, -2:3, -2:3) :: array_3d9
+
+ array_1d = 1
+ array_1d9 = 1
+ array_1d9 (3) = 9
+ array_2d = 2
+ array_2d9 = 2
+ array_2d9 (3, :) = 9
+ array_2d9 (:, 3) = 9
+ array_3d = 3
+ array_3d9 = 3
+ array_3d9 (3, :, :) = 9
+ array_3d9 (:, 3, :) = 9
+ array_3d9 (:, :, 3) = 9
+
+ print *, "" ! Break here
+ print *, array_1d
+ print *, array_1d9
+ print *, array_2d
+ print *, array_2d9
+ print *, array_3d
+ print *, array_3d9
+
+end program test
diff --git a/gdb/testsuite/gdb.fortran/array-slices-repeat.f90 b/gdb/testsuite/gdb.fortran/array-slices-repeat.f90
new file mode 100644
index 0000000..3b9a9e3
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/array-slices-repeat.f90
@@ -0,0 +1,99 @@
+! Copyright 2022 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/>.
+
+subroutine show (array_1d, array_1d9, array_2d, array_2d9, array_3d, array_3d9)
+ integer, dimension (-2:) :: array_1d
+ integer, dimension (-2:) :: array_1d9
+ integer, dimension (-2:, -2:) :: array_2d
+ integer, dimension (-2:, -2:) :: array_2d9
+ integer, dimension (-2:, -2:, -2:) :: array_3d
+ integer, dimension (-2:, -2:, -2:) :: array_3d9
+
+ print *, "" ! Break here
+ print *, array_1d
+ print *, array_1d9
+ print *, array_2d
+ print *, array_2d9
+ print *, array_3d
+ print *, array_3d9
+end subroutine show
+
+!
+! Start of test program.
+!
+program test
+ interface
+ subroutine show (array_1d, array_1d9, array_2d, array_2d9, &
+ array_3d, array_3d9)
+ integer, dimension (:) :: array_1d
+ integer, dimension (:) :: array_1d9
+ integer, dimension (:, :) :: array_2d
+ integer, dimension (:, :) :: array_2d9
+ integer, dimension (:, :, :) :: array_3d
+ integer, dimension (:, :, :) :: array_3d9
+ end subroutine show
+ end interface
+
+ ! Declare variables used in this test.
+ integer, dimension (-8:6) :: array_1d
+ integer, dimension (-8:9) :: array_1d9
+ integer, dimension (-8:6, -8:6) :: array_2d
+ integer, dimension (-8:9, -8:9) :: array_2d9
+ integer, dimension (-8:6, -8:6, -8:6) :: array_3d
+ integer, dimension (-8:9, -8:9, -8:9) :: array_3d9
+
+ integer, parameter :: v6 (6) = [-5, -4, -3, 1, 2, 3]
+ integer, parameter :: v9 (9) = [-5, -4, -3, 1, 2, 3, 7, 8, 9]
+
+ ! Intersperse slices selected with varying data to make sure it is
+ ! correctly ignored for the purpose of repeated element recognition
+ ! in the slices.
+ array_1d = 7
+ array_1d (::3) = 1
+ array_1d9 = 7
+ array_1d9 (::3) = 1
+ array_1d9 (7) = 9
+ array_2d = 7
+ array_2d (:, v6) = 6
+ array_2d (::3, ::3) = 2
+ array_2d9 = 7
+ array_2d9 (:, v9) = 6
+ array_2d9 (::3, ::3) = 2
+ array_2d9 (7, ::3) = 9
+ array_2d9 (::3, 7) = 9
+ array_3d = 7
+ array_3d (:, v6, :) = 6
+ array_3d (:, v6, v6) = 5
+ array_3d (::3, ::3, ::3) = 3
+ array_3d9 = 7
+ array_3d9 (:, v9, :) = 6
+ array_3d9 (:, v9, v9) = 5
+ array_3d9 (::3, ::3, ::3) = 3
+ array_3d9 (7, ::3, ::3) = 9
+ array_3d9 (::3, 7, ::3) = 9
+ array_3d9 (::3, ::3, 7) = 9
+
+ call show (array_1d (::3), array_1d9 (::3), &
+ array_2d (::3, ::3), array_2d9 (::3, ::3), &
+ array_3d (::3, ::3, ::3), array_3d9 (::3, ::3, ::3))
+
+ print *, array_1d
+ print *, array_1d9
+ print *, array_2d
+ print *, array_2d9
+ print *, array_3d
+ print *, array_3d9
+
+end program test
diff --git a/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp b/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp
index ec1dd55..7b7b489 100644
--- a/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp
@@ -32,6 +32,8 @@ if ![fortran_runto_main] {
# We need both variants as depending on the arch we optionally may still be
# executing the caller line or not after `finish'.
+gdb_test_no_output "set print repeats unlimited"
+
gdb_breakpoint [gdb_get_line_number "array2-almost-filled"]
gdb_continue_to_breakpoint "array2-almost-filled"
# array2 size is 296352 bytes.
diff --git a/gdb/testsuite/gdb.fortran/vla-value-sub.exp b/gdb/testsuite/gdb.fortran/vla-value-sub.exp
index 0aa9a42..b7ab7a5 100644
--- a/gdb/testsuite/gdb.fortran/vla-value-sub.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value-sub.exp
@@ -29,6 +29,8 @@ if ![fortran_runto_main] {
# Check the values of VLA's in subroutine can be evaluated correctly
+gdb_test_no_output "set print repeats unlimited"
+
# Try to access values from a fixed array handled as VLA in subroutine.
gdb_breakpoint [gdb_get_line_number "not-filled"]
gdb_continue_to_breakpoint "not-filled (1st)"
generated by cgit v1.1 at 2025-04-06 17:53:30 +0000