From FEDORA_PATCHES Mon Sep 17 00:00:00 2001 From: Fedora GDB patches Date: Fri, 27 Oct 2017 21:07:50 +0200 Subject: Expand fortran array bounds sizes to LONGEST FileName: gdb-rhbz795424-bitpos-25of25-test.patch ;; Fix `GDB cannot access struct member whose offset is larger than 256MB' ;; (RH BZ 795424). ;;=push http://sourceware.org/ml/gdb-patches/2012-10/msg00231.html On Mon, 15 Oct 2012 15:25:55 +0200, Jan Kratochvil wrote: > I have filed for it now: > Invalid debug/ array bounds w/-fno-range-check and 32-bit target > http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54934 Therefore it looks as a valid gfortran FSF GCC HEAD bug so provided a hand-patched .S file for i386; patched GDB PASSes with it. Thanks, Jan 2012-10-15 Siddhesh Poyarekar Jan Kratochvil * gdb.fortran/array-bounds.exp: New test file. * gdb.fortran/array-bounds.f: New test file. * gdb.fortran/array-bounds.S: New test file. --- gdb/testsuite/gdb.fortran/array-bounds.S | 529 +++++++++++++++++++++++++++++ gdb/testsuite/gdb.fortran/array-bounds.exp | 43 +++ gdb/testsuite/gdb.fortran/array-bounds.f | 22 ++ 3 files changed, 594 insertions(+) create mode 100644 gdb/testsuite/gdb.fortran/array-bounds.S create mode 100644 gdb/testsuite/gdb.fortran/array-bounds.exp create mode 100644 gdb/testsuite/gdb.fortran/array-bounds.f diff --git a/gdb/testsuite/gdb.fortran/array-bounds.S b/gdb/testsuite/gdb.fortran/array-bounds.S new file mode 100644 index 0000000000..463a427650 --- /dev/null +++ b/gdb/testsuite/gdb.fortran/array-bounds.S @@ -0,0 +1,529 @@ +/* Copyright 2012 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 . + + This file is part of the gdb testsuite. */ + + .file "array-bounds.f" + .text +.Ltext0: + .type MAIN__, @function +MAIN__: +.LFB0: + .file 1 "gdb.fortran/array-bounds.f" + # gdb.fortran/array-bounds.f:16 + .loc 1 16 0 + .cfi_startproc +# BLOCK 2 seq:0 +# PRED: ENTRY (FALLTHRU) + pushl %ebp +.LCFI0: + .cfi_def_cfa_offset 8 + .cfi_offset 5, -8 + movl %esp, %ebp +.LCFI1: + .cfi_def_cfa_register 5 + subl $40, %esp +.LBB2: +# SUCC: 3 (FALLTHRU) + # gdb.fortran/array-bounds.f:18 + .loc 1 18 0 + movl $-1, %eax +# BLOCK 3 seq:1 +# PRED: 2 (FALLTHRU) 4 [100.0%] +.L3: + # gdb.fortran/array-bounds.f:18 + .loc 1 18 0 is_stmt 0 discriminator 1 + testl %eax, %eax +# SUCC: 5 4 (FALLTHRU) + jg .L2 +# BLOCK 4 seq:2 +# PRED: 3 (FALLTHRU) + # gdb.fortran/array-bounds.f:18 + .loc 1 18 0 discriminator 2 + leal 1(%eax), %ecx + movl .LC0, %edx + movl %edx, -16(%ebp,%ecx,4) + addl $1, %eax +# SUCC: 3 [100.0%] + jmp .L3 +# BLOCK 5 seq:3 +# PRED: 3 +.L2: +.LBE2: + # gdb.fortran/array-bounds.f:19 + .loc 1 19 0 is_stmt 1 + movl -16(%ebp), %eax + movl -12(%ebp), %edx + movl %eax, -24(%ebp) + movl %edx, -20(%ebp) + # gdb.fortran/array-bounds.f:20 + .loc 1 20 0 + movl $0, 4(%esp) + movl $0, (%esp) +# SUCC: + call _gfortran_stop_string + .cfi_endproc +.LFE0: + .size MAIN__, .-MAIN__ + .globl main + .type main, @function +main: +.LFB1: + # gdb.fortran/array-bounds.f:21 + .loc 1 21 0 + .cfi_startproc +# BLOCK 2 seq:0 +# PRED: ENTRY (FALLTHRU) + pushl %ebp +.LCFI2: + .cfi_def_cfa_offset 8 + .cfi_offset 5, -8 + movl %esp, %ebp +.LCFI3: + .cfi_def_cfa_register 5 + andl $-16, %esp + subl $16, %esp + # gdb.fortran/array-bounds.f:21 + .loc 1 21 0 + movl 12(%ebp), %eax + movl %eax, 4(%esp) + movl 8(%ebp), %eax + movl %eax, (%esp) + call _gfortran_set_args + movl $options.1.1824, 4(%esp) + movl $7, (%esp) + call _gfortran_set_options + call MAIN__ + movl $0, %eax + leave +.LCFI4: + .cfi_restore 5 + .cfi_def_cfa 4, 4 +# SUCC: EXIT [100.0%] + ret + .cfi_endproc +.LFE1: + .size main, .-main + .section .rodata + .align 4 + .type options.1.1824, @object + .size options.1.1824, 28 +options.1.1824: + .long 68 + .long 1023 + .long 0 + .long 0 + .long 1 + .long 1 + .long 0 + .align 4 +.LC0: + .long 1109917696 + .text +.Letext0: + .section .debug_info,"",@progbits +.Ldebug_info0: + .long 2f - 1f # Length of Compilation Unit Info +1: + .value 0x2 # DWARF version number + .long .Ldebug_abbrev0 # Offset Into Abbrev. Section + .byte 0x4 # Pointer Size (in bytes) +dieb: .uleb128 0x1 # (DIE (0xb) DW_TAG_compile_unit) + .long .LASF5 # DW_AT_producer: "GNU Fortran 4.8.0 20121015 (experimental) -ffixed-form -m32 -mtune=generic -march=x86-64 -g -gdwarf-2 -fintrinsic-modules-path .../gcchead-root/lib/gcc/x86_64-unknown-linux-gnu/4.8.0/finclude" + .byte 0xe # DW_AT_language + .byte 0x2 # DW_AT_identifier_case + .long .LASF6 # DW_AT_name: "gdb.fortran/array-bounds.f" + .long .LASF7 # DW_AT_comp_dir: "" + .long .Ltext0 # DW_AT_low_pc + .long .Letext0 # DW_AT_high_pc + .long .Ldebug_line0 # DW_AT_stmt_list +die26: .uleb128 0x2 # (DIE (0x26) DW_TAG_subprogram) + .long .LASF8 # DW_AT_name: "MAIN__" + .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f) + .byte 0x10 # DW_AT_decl_line + .long .LFB0 # DW_AT_low_pc + .long .LFE0 # DW_AT_high_pc + .long .LLST0 # DW_AT_frame_base + .byte 0x1 # DW_AT_GNU_all_tail_call_sites + .byte 0x1 # DW_AT_main_subprogram + .byte 0x2 # DW_AT_calling_convention + .long die66 - .Ldebug_info0 # DW_AT_sibling +die40: .uleb128 0x3 # (DIE (0x40) DW_TAG_variable) + .ascii "bar\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f) + .byte 0x11 # DW_AT_decl_line + .long die66 - .Ldebug_info0 # DW_AT_type + .byte 0x2 # DW_AT_location + .byte 0x91 # DW_OP_fbreg + .sleb128 -24 +die4e: .uleb128 0x3 # (DIE (0x4e) DW_TAG_variable) + .ascii "foo\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f) + .byte 0x10 # DW_AT_decl_line + .long die88 - .Ldebug_info0 # DW_AT_type + .byte 0x2 # DW_AT_location + .byte 0x91 # DW_OP_fbreg + .sleb128 -32 +die5c: .uleb128 0x4 # (DIE (0x5c) DW_TAG_lexical_block) + .long .LBB2 # DW_AT_low_pc + .long .LBE2 # DW_AT_high_pc + .byte 0 # end of children of DIE 0x26 +die66: .uleb128 0x5 # (DIE (0x66) DW_TAG_array_type) + .long die81 - .Ldebug_info0 # DW_AT_type + .long die7a - .Ldebug_info0 # DW_AT_sibling +die6f: .uleb128 0x6 # (DIE (0x6f) DW_TAG_subrange_type) + .long die7a - .Ldebug_info0 # DW_AT_type +#if 0 + .long 0xffffffff # DW_AT_lower_bound + .byte 0 # DW_AT_upper_bound +#else + .quad 0xfffffffeffffffff # DW_AT_lower_bound + .quad 0xffffffff00000000 # DW_AT_upper_bound +#endif + .byte 0 # end of children of DIE 0x66 +die7a: .uleb128 0x7 # (DIE (0x7a) DW_TAG_base_type) +#if 0 + .byte 0x4 # DW_AT_byte_size +#else + .byte 0x8 # DW_AT_byte_size +#endif + .byte 0x5 # DW_AT_encoding + .long .LASF0 # DW_AT_name: "integer(kind=4)" +die81: .uleb128 0x7 # (DIE (0x81) DW_TAG_base_type) + .byte 0x4 # DW_AT_byte_size + .byte 0x4 # DW_AT_encoding + .long .LASF1 # DW_AT_name: "real(kind=4)" +die88: .uleb128 0x5 # (DIE (0x88) DW_TAG_array_type) + .long die81 - .Ldebug_info0 # DW_AT_type + .long die99 - .Ldebug_info0 # DW_AT_sibling +die91: .uleb128 0x8 # (DIE (0x91) DW_TAG_subrange_type) + .long die7a - .Ldebug_info0 # DW_AT_type +#if 0 + .byte 0 # DW_AT_lower_bound + .byte 0x1 # DW_AT_upper_bound +#else + .quad 0x100000000 # DW_AT_lower_bound + .quad 0x100000001 # DW_AT_upper_bound +#endif + .byte 0 # end of children of DIE 0x88 +die99: .uleb128 0x9 # (DIE (0x99) DW_TAG_subprogram) + .byte 0x1 # DW_AT_external + .long .LASF9 # DW_AT_name: "main" + .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f) + .byte 0x15 # DW_AT_decl_line + .long die7a - .Ldebug_info0 # DW_AT_type + .long .LFB1 # DW_AT_low_pc + .long .LFE1 # DW_AT_high_pc + .long .LLST1 # DW_AT_frame_base + .byte 0x1 # DW_AT_GNU_all_tail_call_sites + .long died4 - .Ldebug_info0 # DW_AT_sibling +dieb6: .uleb128 0xa # (DIE (0xb6) DW_TAG_formal_parameter) + .long .LASF2 # DW_AT_name: "argc" + .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f) + .byte 0x15 # DW_AT_decl_line + .long died4 - .Ldebug_info0 # DW_AT_type + .byte 0x2 # DW_AT_location + .byte 0x91 # DW_OP_fbreg + .sleb128 0 +diec4: .uleb128 0xa # (DIE (0xc4) DW_TAG_formal_parameter) + .long .LASF3 # DW_AT_name: "argv" + .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f) + .byte 0x15 # DW_AT_decl_line + .long died9 - .Ldebug_info0 # DW_AT_type + .byte 0x3 # DW_AT_location + .byte 0x91 # DW_OP_fbreg + .sleb128 4 + .byte 0x6 # DW_OP_deref + .byte 0 # end of children of DIE 0x99 +died4: .uleb128 0xb # (DIE (0xd4) DW_TAG_const_type) + .long die7a - .Ldebug_info0 # DW_AT_type +died9: .uleb128 0xc # (DIE (0xd9) DW_TAG_pointer_type) + .byte 0x4 # DW_AT_byte_size + .long diedf - .Ldebug_info0 # DW_AT_type +diedf: .uleb128 0x7 # (DIE (0xdf) DW_TAG_base_type) + .byte 0x1 # DW_AT_byte_size + .byte 0x8 # DW_AT_encoding + .long .LASF4 # DW_AT_name: "character(kind=1)" + .byte 0 # end of children of DIE 0xb +2: + .section .debug_abbrev,"",@progbits +.Ldebug_abbrev0: + .uleb128 0x1 # (abbrev code) + .uleb128 0x11 # (TAG: DW_TAG_compile_unit) + .byte 0x1 # DW_children_yes + .uleb128 0x25 # (DW_AT_producer) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x13 # (DW_AT_language) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x42 # (DW_AT_identifier_case) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x1b # (DW_AT_comp_dir) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x11 # (DW_AT_low_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x12 # (DW_AT_high_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x10 # (DW_AT_stmt_list) + .uleb128 0x6 # (DW_FORM_data4) + .byte 0 + .byte 0 + .uleb128 0x2 # (abbrev code) + .uleb128 0x2e # (TAG: DW_TAG_subprogram) + .byte 0x1 # DW_children_yes + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x11 # (DW_AT_low_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x12 # (DW_AT_high_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x40 # (DW_AT_frame_base) + .uleb128 0x6 # (DW_FORM_data4) + .uleb128 0x2116 # (DW_AT_GNU_all_tail_call_sites) + .uleb128 0xc # (DW_FORM_flag) + .uleb128 0x6a # (DW_AT_main_subprogram) + .uleb128 0xc # (DW_FORM_flag) + .uleb128 0x36 # (DW_AT_calling_convention) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x1 # (DW_AT_sibling) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0x3 # (abbrev code) + .uleb128 0x34 # (TAG: DW_TAG_variable) + .byte 0 # DW_children_no + .uleb128 0x3 # (DW_AT_name) + .uleb128 0x8 # (DW_FORM_string) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0xa # (DW_FORM_block1) + .byte 0 + .byte 0 + .uleb128 0x4 # (abbrev code) + .uleb128 0xb # (TAG: DW_TAG_lexical_block) + .byte 0 # DW_children_no + .uleb128 0x11 # (DW_AT_low_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x12 # (DW_AT_high_pc) + .uleb128 0x1 # (DW_FORM_addr) + .byte 0 + .byte 0 + .uleb128 0x5 # (abbrev code) + .uleb128 0x1 # (TAG: DW_TAG_array_type) + .byte 0x1 # DW_children_yes + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x1 # (DW_AT_sibling) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0x6 # (abbrev code) + .uleb128 0x21 # (TAG: DW_TAG_subrange_type) + .byte 0 # DW_children_no + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) +#if 0 + .uleb128 0x22 # (DW_AT_lower_bound) + .uleb128 0x6 # (DW_FORM_data4) + .uleb128 0x2f # (DW_AT_upper_bound) + .uleb128 0xb # (DW_FORM_data1) +#else + .uleb128 0x22 # (DW_AT_lower_bound) + .uleb128 0x7 # (DW_FORM_data8) + .uleb128 0x2f # (DW_AT_upper_bound) + .uleb128 0x7 # (DW_FORM_data8) +#endif + .byte 0 + .byte 0 + .uleb128 0x7 # (abbrev code) + .uleb128 0x24 # (TAG: DW_TAG_base_type) + .byte 0 # DW_children_no + .uleb128 0xb # (DW_AT_byte_size) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3e # (DW_AT_encoding) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .byte 0 + .byte 0 + .uleb128 0x8 # (abbrev code) + .uleb128 0x21 # (TAG: DW_TAG_subrange_type) + .byte 0 # DW_children_no + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) +#if 0 + .uleb128 0x22 # (DW_AT_lower_bound) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x2f # (DW_AT_upper_bound) + .uleb128 0xb # (DW_FORM_data1) +#else + .uleb128 0x22 # (DW_AT_lower_bound) + .uleb128 0x7 # (DW_FORM_data8) + .uleb128 0x2f # (DW_AT_upper_bound) + .uleb128 0x7 # (DW_FORM_data8) +#endif + .byte 0 + .byte 0 + .uleb128 0x9 # (abbrev code) + .uleb128 0x2e # (TAG: DW_TAG_subprogram) + .byte 0x1 # DW_children_yes + .uleb128 0x3f # (DW_AT_external) + .uleb128 0xc # (DW_FORM_flag) + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x11 # (DW_AT_low_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x12 # (DW_AT_high_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x40 # (DW_AT_frame_base) + .uleb128 0x6 # (DW_FORM_data4) + .uleb128 0x2116 # (DW_AT_GNU_all_tail_call_sites) + .uleb128 0xc # (DW_FORM_flag) + .uleb128 0x1 # (DW_AT_sibling) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0xa # (abbrev code) + .uleb128 0x5 # (TAG: DW_TAG_formal_parameter) + .byte 0 # DW_children_no + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0xa # (DW_FORM_block1) + .byte 0 + .byte 0 + .uleb128 0xb # (abbrev code) + .uleb128 0x26 # (TAG: DW_TAG_const_type) + .byte 0 # DW_children_no + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0xc # (abbrev code) + .uleb128 0xf # (TAG: DW_TAG_pointer_type) + .byte 0 # DW_children_no + .uleb128 0xb # (DW_AT_byte_size) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .byte 0 + .section .debug_loc,"",@progbits +.Ldebug_loc0: +.LLST0: + .long .LFB0-.Ltext0 # Location list begin address (*.LLST0) + .long .LCFI0-.Ltext0 # Location list end address (*.LLST0) + .value 0x2 # Location expression size + .byte 0x74 # DW_OP_breg4 + .sleb128 4 + .long .LCFI0-.Ltext0 # Location list begin address (*.LLST0) + .long .LCFI1-.Ltext0 # Location list end address (*.LLST0) + .value 0x2 # Location expression size + .byte 0x74 # DW_OP_breg4 + .sleb128 8 + .long .LCFI1-.Ltext0 # Location list begin address (*.LLST0) + .long .LFE0-.Ltext0 # Location list end address (*.LLST0) + .value 0x2 # Location expression size + .byte 0x75 # DW_OP_breg5 + .sleb128 8 + .long 0 # Location list terminator begin (*.LLST0) + .long 0 # Location list terminator end (*.LLST0) +.LLST1: + .long .LFB1-.Ltext0 # Location list begin address (*.LLST1) + .long .LCFI2-.Ltext0 # Location list end address (*.LLST1) + .value 0x2 # Location expression size + .byte 0x74 # DW_OP_breg4 + .sleb128 4 + .long .LCFI2-.Ltext0 # Location list begin address (*.LLST1) + .long .LCFI3-.Ltext0 # Location list end address (*.LLST1) + .value 0x2 # Location expression size + .byte 0x74 # DW_OP_breg4 + .sleb128 8 + .long .LCFI3-.Ltext0 # Location list begin address (*.LLST1) + .long .LCFI4-.Ltext0 # Location list end address (*.LLST1) + .value 0x2 # Location expression size + .byte 0x75 # DW_OP_breg5 + .sleb128 8 + .long .LCFI4-.Ltext0 # Location list begin address (*.LLST1) + .long .LFE1-.Ltext0 # Location list end address (*.LLST1) + .value 0x2 # Location expression size + .byte 0x74 # DW_OP_breg4 + .sleb128 4 + .long 0 # Location list terminator begin (*.LLST1) + .long 0 # Location list terminator end (*.LLST1) + .section .debug_aranges,"",@progbits + .long 0x1c # Length of Address Ranges Info + .value 0x2 # DWARF Version + .long .Ldebug_info0 # Offset of Compilation Unit Info + .byte 0x4 # Size of Address + .byte 0 # Size of Segment Descriptor + .value 0 # Pad to 8 byte boundary + .value 0 + .long .Ltext0 # Address + .long .Letext0-.Ltext0 # Length + .long 0 + .long 0 + .section .debug_line,"",@progbits +.Ldebug_line0: + .section .debug_str,"MS",@progbits,1 +.LASF4: + .string "character(kind=1)" +.LASF5: + .string "GNU Fortran 4.8.0 20121015 (experimental) -ffixed-form -m32 -mtune=generic -march=x86-64 -g -gdwarf-2 -fintrinsic-modules-path .../gcchead-root/lib/gcc/x86_64-unknown-linux-gnu/4.8.0/finclude" +.LASF7: + .string "" +.LASF0: +#if 0 + .string "integer(kind=4)" +#else + .string "integer(kind=8)" +#endif +.LASF9: + .string "main" +.LASF8: + .string "MAIN__" +.LASF6: + .string "gdb.fortran/array-bounds.f" +.LASF2: + .string "argc" +.LASF1: + .string "real(kind=4)" +.LASF3: + .string "argv" + .ident "GCC: (GNU) 4.8.0 20121015 (experimental)" + .section .note.GNU-stack,"",@progbits diff --git a/gdb/testsuite/gdb.fortran/array-bounds.exp b/gdb/testsuite/gdb.fortran/array-bounds.exp new file mode 100644 index 0000000000..ba0ebe13b8 --- /dev/null +++ b/gdb/testsuite/gdb.fortran/array-bounds.exp @@ -0,0 +1,43 @@ +# Copyright 2012 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 . + +# This file is part of the gdb testsuite. It contains test to ensure that +# array bounds accept LONGEST. + +if { [skip_fortran_tests] } { return -1 } + +set testfile "array-bounds" + +if { [is_ilp32_target] && ([istarget "i\[34567\]86-*-linux*"] + || [istarget "x86_64-*-linux*"]) } { + set srcfile ${testfile}.S + set opts {nodebug f90} +} else { + set srcfile ${testfile}.f + set opts {debug f90} +} + +if {[prepare_for_testing $testfile.exp $testfile $srcfile $opts]} { + print "compile failed" + return -1 +} + +if { ![runto MAIN__] } { + perror "Could not run to breakpoint `MAIN__'." + continue +} + +gdb_test "print &foo" {.*\(4294967296:4294967297\).*} +gdb_test "print &bar" {.*\(-4294967297:-4294967296\).*} diff --git a/gdb/testsuite/gdb.fortran/array-bounds.f b/gdb/testsuite/gdb.fortran/array-bounds.f new file mode 100644 index 0000000000..78b36e6c27 --- /dev/null +++ b/gdb/testsuite/gdb.fortran/array-bounds.f @@ -0,0 +1,22 @@ +c Copyright 2012 Free Software Foundation, Inc. + +c This program is free software; you can redistribute it and/or modify +c it under the terms of the GNU General Public License as published by +c the Free Software Foundation; either version 3 of the License, or +c (at your option) any later version. +c +c This program is distributed in the hope that it will be useful, +c but WITHOUT ANY WARRANTY; without even the implied warranty of +c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +c GNU General Public License for more details. +c +c You should have received a copy of the GNU General Public License +c along with this program. If not, see . + + dimension foo(4294967296_8:4294967297_8) + dimension bar(-4294967297_8:-4294967296_8) + bar = 42 + foo=bar + stop + end + -- 2.14.3