Blame SOURCES/gdb-rhbz795424-bitpos-25of25-test.patch

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