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