1# Copyright 2020-2023 Free Software Foundation, Inc.
2
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.
7#
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.
12#
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/> .
15
16# Test invalid element and slice array accesses.
17
18if {[skip_fortran_tests]} { return -1 }
19
20standard_testfile ".f90"
21load_lib fortran.exp
22
23if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \
24	 {debug f90}]} {
25    return -1
26}
27
28# Avoid shared lib symbols.
29gdb_test_no_output "set auto-solib-add off"
30
31if ![fortran_runto_main] {
32    return -1
33}
34
35# Avoid libc symbols, in particular the 'array' type.
36gdb_test_no_output "nosharedlibrary"
37
38# gdb_breakpoint [gdb_get_line_number "Display Message Breakpoint"]
39gdb_breakpoint [gdb_get_line_number "First Breakpoint"]
40gdb_breakpoint [gdb_get_line_number "Second Breakpoint"]
41gdb_breakpoint [gdb_get_line_number "Final Breakpoint"]
42
43gdb_continue_to_breakpoint "First Breakpoint"
44
45# Access not yet allocated array.
46gdb_test "print other" " = <not allocated>"
47gdb_test "print other(0:4,2:3)" "array not allocated"
48gdb_test "print other(1,1)" "no such vector element \\(vector not allocated\\)"
49
50# Access not yet associated pointer.
51gdb_test "print pointer2d" " = <not associated>"
52gdb_test "print pointer2d(1:2,1:2)" "array not associated"
53gdb_test "print pointer2d(1,1)" "no such vector element \\(vector not associated\\)"
54
55gdb_continue_to_breakpoint "Second Breakpoint"
56
57# Accessing just outside the arrays.
58foreach name {array pointer2d other} {
59    gdb_test "print $name (0:,:)" "array subscript out of bounds"
60    gdb_test "print $name (:11,:)" "array subscript out of bounds"
61    gdb_test "print $name (:,0:)" "array subscript out of bounds"
62    gdb_test "print $name (:,:11)" "array subscript out of bounds"
63
64    gdb_test "print $name (0,:)" "no such vector element"
65    gdb_test "print $name (11,:)" "no such vector element"
66    gdb_test "print $name (:,0)" "no such vector element"
67    gdb_test "print $name (:,11)" "no such vector element"
68}
69
70# Stride in the wrong direction.
71gdb_test "print array (1:10:-1,:)" "incorrect stride and boundary combination"
72gdb_test "print array (:,1:10:-1)" "incorrect stride and boundary combination"
73gdb_test "print array (10:1:1,:)" "incorrect stride and boundary combination"
74gdb_test "print array (:,10:1:1)" "incorrect stride and boundary combination"
75