Blame SOURCES/gdb-rhel5.9-testcase-xlf-var-inside-mod.patch

7a6771
Index: gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.S
7a6771
===================================================================
7a6771
--- /dev/null
7a6771
+++ gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.S
7a6771
@@ -0,0 +1,638 @@
7a6771
+/* Copyright (C) 2012 Free Software Foundation, Inc.
7a6771
+
7a6771
+   This file is part of GDB.
7a6771
+
7a6771
+   This program is free software; you can redistribute it and/or modify
7a6771
+   it under the terms of the GNU General Public License as published by
7a6771
+   the Free Software Foundation; either version 3 of the License, or
7a6771
+   (at your option) any later version.
7a6771
+
7a6771
+   This program is distributed in the hope that it will be useful,
7a6771
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
7a6771
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
7a6771
+   GNU General Public License for more details.
7a6771
+
7a6771
+   You should have received a copy of the GNU General Public License
7a6771
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
7a6771
+
7a6771
+/* This file has been generated from the file named `xlf-variable.f', which
7a6771
+   should be present in this directory.  The command used to generate this
7a6771
+   file was:
7a6771
+
7a6771
+     xlf -qnoopt -g9 -S xlf-variable.f -o xlf-variable.S
7a6771
+
7a6771
+   After issuing this command, you must hand-edit this file and remove the
7a6771
+   mentions for `_xlfExit', since it is only present in XLF-specific
7a6771
+   libraries.  You must also make sure to remove the file named `mod1.mod'
7a6771
+   which will be created in the compilation directory.
7a6771
+
7a6771
+   In order to generated this file, the following XLF package was used:
7a6771
+
7a6771
+     xlf.14.1.0.0.linux.eval.tar.gz
7a6771
+
7a6771
+   These instructions may be different for different versions of the XLF
7a6771
+   compiler.  */
7a6771
+
7a6771
+.set r0,0; .set SP,1; .set RTOC,2; .set r3,3; .set r4,4
7a6771
+.set r5,5; .set r6,6; .set r7,7; .set r8,8; .set r9,9
7a6771
+.set r10,10; .set r11,11; .set r12,12; .set r13,13; .set r14,14
7a6771
+.set r15,15; .set r16,16; .set r17,17; .set r18,18; .set r19,19
7a6771
+.set r20,20; .set r21,21; .set r22,22; .set r23,23; .set r24,24
7a6771
+.set r25,25; .set r26,26; .set r27,27; .set r28,28; .set r29,29
7a6771
+.set r30,30; .set r31,31
7a6771
+.set fp0,0; .set fp1,1; .set fp2,2; .set fp3,3; .set fp4,4
7a6771
+.set fp5,5; .set fp6,6; .set fp7,7; .set fp8,8; .set fp9,9
7a6771
+.set fp10,10; .set fp11,11; .set fp12,12; .set fp13,13; .set fp14,14
7a6771
+.set fp15,15; .set fp16,16; .set fp17,17; .set fp18,18; .set fp19,19
7a6771
+.set fp20,20; .set fp21,21; .set fp22,22; .set fp23,23; .set fp24,24
7a6771
+.set fp25,25; .set fp26,26; .set fp27,27; .set fp28,28; .set fp29,29
7a6771
+.set fp30,30; .set fp31,31
7a6771
+.set v0,0; .set v1,1; .set v2,2; .set v3,3; .set v4,4
7a6771
+.set v5,5; .set v6,6; .set v7,7; .set v8,8; .set v9,9
7a6771
+.set v10,10; .set v11,11; .set v12,12; .set v13,13; .set v14,14
7a6771
+.set v15,15; .set v16,16; .set v17,17; .set v18,18; .set v19,19
7a6771
+.set v20,20; .set v21,21; .set v22,22; .set v23,23; .set v24,24
7a6771
+.set v25,25; .set v26,26; .set v27,27; .set v28,28; .set v29,29
7a6771
+.set v30,30; .set v31,31
7a6771
+.set q0,0; .set q1,1; .set q2,2; .set q3,3; .set q4,4
7a6771
+.set q5,5; .set q6,6; .set q7,7; .set q8,8; .set q9,9
7a6771
+.set q10,10; .set q11,11; .set q12,12; .set q13,13; .set q14,14
7a6771
+.set q15,15; .set q16,16; .set q17,17; .set q18,18; .set q19,19
7a6771
+.set q20,20; .set q21,21; .set q22,22; .set q23,23; .set q24,24
7a6771
+.set q25,25; .set q26,26; .set q27,27; .set q28,28; .set q29,29
7a6771
+.set q30,30; .set q31,31
7a6771
+.set MQ,0; .set XER,1; .set FROM_RTCU,4; .set FROM_RTCL,5; .set FROM_DEC,6
7a6771
+.set LR,8; .set CTR,9; .set TID,17; .set DSISR,18; .set DAR,19; .set TO_RTCU,20
7a6771
+.set TO_RTCL,21; .set TO_DEC,22; .set SDR_0,24; .set SDR_1,25; .set SRR_0,26
7a6771
+.set SRR_1,27
7a6771
+.set BO_dCTR_NZERO_AND_NOT,0; .set BO_dCTR_NZERO_AND_NOT_1,1
7a6771
+.set BO_dCTR_ZERO_AND_NOT,2; .set BO_dCTR_ZERO_AND_NOT_1,3
7a6771
+.set BO_IF_NOT,4; .set BO_IF_NOT_1,5; .set BO_IF_NOT_2,6
7a6771
+.set BO_IF_NOT_3,7; .set BO_dCTR_NZERO_AND,8; .set BO_dCTR_NZERO_AND_1,9
7a6771
+.set BO_dCTR_ZERO_AND,10; .set BO_dCTR_ZERO_AND_1,11; .set BO_IF,12
7a6771
+.set BO_IF_1,13; .set BO_IF_2,14; .set BO_IF_3,15; .set BO_dCTR_NZERO,16
7a6771
+.set BO_dCTR_NZERO_1,17; .set BO_dCTR_ZERO,18; .set BO_dCTR_ZERO_1,19
7a6771
+.set BO_ALWAYS,20; .set BO_ALWAYS_1,21; .set BO_ALWAYS_2,22
7a6771
+.set BO_ALWAYS_3,23; .set BO_dCTR_NZERO_8,24; .set BO_dCTR_NZERO_9,25
7a6771
+.set BO_dCTR_ZERO_8,26; .set BO_dCTR_ZERO_9,27; .set BO_ALWAYS_8,28
7a6771
+.set BO_ALWAYS_9,29; .set BO_ALWAYS_10,30; .set BO_ALWAYS_11,31
7a6771
+.set CR0_LT,0; .set CR0_GT,1; .set CR0_EQ,2; .set CR0_SO,3
7a6771
+.set CR1_FX,4; .set CR1_FEX,5; .set CR1_VX,6; .set CR1_OX,7
7a6771
+.set CR2_LT,8; .set CR2_GT,9; .set CR2_EQ,10; .set CR2_SO,11
7a6771
+.set CR3_LT,12; .set CR3_GT,13; .set CR3_EQ,14; .set CR3_SO,15
7a6771
+.set CR4_LT,16; .set CR4_GT,17; .set CR4_EQ,18; .set CR4_SO,19
7a6771
+.set CR5_LT,20; .set CR5_GT,21; .set CR5_EQ,22; .set CR5_SO,23
7a6771
+.set CR6_LT,24; .set CR6_GT,25; .set CR6_EQ,26; .set CR6_SO,27
7a6771
+.set CR7_LT,28; .set CR7_GT,29; .set CR7_EQ,30; .set CR7_SO,31
7a6771
+.set TO_LT,16; .set TO_GT,8; .set TO_EQ,4; .set TO_LLT,2; .set TO_LGT,1
7a6771
+
7a6771
+	.file	"xlf-variable.f"
7a6771
+	.globl	__mod1_NMOD_____mod1
7a6771
+	.type	__mod1_NMOD_____mod1,@function
7a6771
+	.size	__mod1_NMOD_____mod1,32
7a6771
+	.globl	main
7a6771
+	.type	main,@function
7a6771
+	.size	main,68
7a6771
+	.globl	__mod1_NMOD_sub1
7a6771
+	.type	__mod1_NMOD_sub1,@function
7a6771
+	.size	__mod1_NMOD_sub1,136
7a6771
+	.globl	_main
7a6771
+	.type	_main,@function
7a6771
+	.size	_main,68
7a6771
+
7a6771
+	.section	".text"
7a6771
+	.align	7
7a6771
+.LC.text:
7a6771
+__mod1_NMOD_____mod1:
7a6771
+	stwu       SP,-32(SP)
7a6771
+	stw        r31,28(SP)
7a6771
+	or         r31,SP,SP
7a6771
+	b          $+0x4
7a6771
+	addi       r11,r31,32
7a6771
+	lwz        r31,-4(r11)
7a6771
+	or         SP,r11,r11
7a6771
+	bclr       BO_ALWAYS,CR0_LT
7a6771
+.LC.text32:
7a6771
+
7a6771
+__mod1_NMOD_sub1:
7a6771
+	stwu       SP,-32(SP)
7a6771
+	stw        r31,28(SP)
7a6771
+	stw        r30,24(SP)
7a6771
+	or         r31,SP,SP
7a6771
+	addis      r30,r0,.const_dr@ha
7a6771
+	addi       r30,r30,.const_dr@l
7a6771
+	addis      r3,r0,__N_mod1@ha
7a6771
+	addi       r3,r3,__N_mod1@l
7a6771
+	addi       r0,r0,1
7a6771
+	stb        r0,4(r3)
7a6771
+	addi       r4,r0,14
7a6771
+	stb        r4,5(r3)
7a6771
+	stb        r0,7(r3)
7a6771
+	addis      r5,r0,__N__mod1@ha
7a6771
+	addi       r5,r5,__N__mod1@l
7a6771
+	stw        r5,0(r3)
7a6771
+	lbz        r5,6(r3)
7a6771
+	rlwinm     r5,r5,0,25,25
7a6771
+	ori        r5,r5,0x0040
7a6771
+	stb        r5,6(r3)
7a6771
+	lwz        r5,0(r3)
7a6771
+	lfs        fp0,0(r30)
7a6771
+	stfs       fp0,0(r5)
7a6771
+	stb        r0,4(r3)
7a6771
+	stb        r4,5(r3)
7a6771
+	addi       r4,r0,0
7a6771
+	stb        r4,6(r3)
7a6771
+	stb        r0,7(r3)
7a6771
+	b          $+0x4
7a6771
+	addi       r11,r31,32
7a6771
+	lwz        r30,-8(r11)
7a6771
+	lwz        r31,-4(r11)
7a6771
+	or         SP,r11,r11
7a6771
+	bclr       BO_ALWAYS,CR0_LT
7a6771
+.LC.text168:
7a6771
+	.long 0
7a6771
+	.skip 0x54
7a6771
+.LC.text256:
7a6771
+
7a6771
+main:
7a6771
+_main:
7a6771
+	mfspr      r0,LR
7a6771
+	stwu       SP,-32(SP)
7a6771
+	stw        r31,28(SP)
7a6771
+	stw        r0,36(SP)
7a6771
+	or         r31,SP,SP
7a6771
+	bl         __mod1_NMOD_sub1
7a6771
+	addi       r3,r0,0
7a6771
+.LC.text288:
7a6771
+
7a6771
+	tw         TO_EQ,r14,r14
7a6771
+	addi       r3,r0,0
7a6771
+	b          $+0x4
7a6771
+	addi       r11,r31,32
7a6771
+	lwz        r31,-4(r11)
7a6771
+	lwz        r0,4(r11)
7a6771
+	mtspr      LR,r0
7a6771
+	or         SP,r11,r11
7a6771
+	bclr       BO_ALWAYS,CR0_LT
7a6771
+.LC.text324:
7a6771
+
7a6771
+
7a6771
+	.section	".rodata","a"
7a6771
+	.align	2
7a6771
+.LC.rodata:
7a6771
+	.type    .const_dr,@object
7a6771
+	.size    .const_dr,4
7a6771
+.const_dr:
7a6771
+	.long 0x40400000
7a6771
+
7a6771
+	.section	".eh_frame","wa"
7a6771
+	.align	2
7a6771
+.LC.eh_frame:
7a6771
+	.long 0x0000000c
7a6771
+	.long 0x00000000
7a6771
+	.long 0x0100047c
7a6771
+	.long 0x410c0100
7a6771
+	.long 0x0000001c
7a6771
+	.long 0x00000014
7a6771
+	.long .LC.text
7a6771
+	.long 0x00000020
7a6771
+	.long 0x410e2041
7a6771
+	.long 0x9f01410d
7a6771
+	.long 0x1f410a42
7a6771
+	.long 0xdf420b00
7a6771
+	.long 0x00000020
7a6771
+	.long 0x00000034
7a6771
+	.long .LC.text32
7a6771
+	.long 0x00000088
7a6771
+	.long 0x410e2041
7a6771
+	.long 0x9f01419e
7a6771
+	.long 0x02410d1f
7a6771
+	.long 0x590a42de
7a6771
+	.long 0x41df420b
7a6771
+	.long 0x0000000c
7a6771
+	.long 0x00000000
7a6771
+	.long 0x0100047c
7a6771
+	.long 0x410c0100
7a6771
+	.long 0x00000020
7a6771
+	.long 0x00000014
7a6771
+	.long .LC.text256
7a6771
+	.long 0x00000044
7a6771
+	.long 0x420e2041
7a6771
+	.long 0x9f014111
7a6771
+	.long 0x417f410d
7a6771
+	.long 0x1f460a42
7a6771
+	.long 0xdf440b00
7a6771
+
7a6771
+	.section	".data","wa"
7a6771
+	.align	4
7a6771
+.LC.data:
7a6771
+	.globl __N_mod1
7a6771
+	.type    __N_mod1,@object
7a6771
+	.size    __N_mod1,8
7a6771
+__N_mod1:
7a6771
+	.long 0x00000000
7a6771
+	.long 0x01000001
7a6771
+
7a6771
+	.section	".except.1","wa"
7a6771
+	.align	1
7a6771
+.LC.except.1:
7a6771
+	.long .LC.text288
7a6771
+	.byte 0x01
7a6771
+	.byte 0x09
7a6771
+
7a6771
+	.ident  "Fri Jun 15 16:35:45 2012 .IBM XL Fortran for Linux, V14.1 (5765-J05, 5725-C75) Version 14.01.0000.0000.Fri Jun 15 16:35:45 2012 .IBM XL Fortran for Linux, V14.1 (5765-J05, 5725-C75) Version 14.01.0000.0000."
7a6771
+
7a6771
+	.section	".debug_aranges"
7a6771
+	.align	0
7a6771
+.LC.debug_aranges:
7a6771
+	.long 0x0000001c
7a6771
+	.byte 0x00
7a6771
+	.byte 0x02
7a6771
+	.long .LC.debug_info
7a6771
+	.long 0x04000000
7a6771
+	.byte 0x00
7a6771
+	.byte 0x00
7a6771
+	.long .LC.text
7a6771
+	.long 0x000000a8
7a6771
+	.long 0x00000000
7a6771
+	.long 0x00000000
7a6771
+	.long 0x0000001c
7a6771
+	.byte 0x00
7a6771
+	.byte 0x02
7a6771
+	.long .LC.debug_info273
7a6771
+	.long 0x04000000
7a6771
+	.byte 0x00
7a6771
+	.byte 0x00
7a6771
+	.long .LC.text256
7a6771
+	.long 0x00000044
7a6771
+	.long 0x00000000
7a6771
+	.long 0x00000000
7a6771
+
7a6771
+	.section	".debug_pubnames"
7a6771
+	.align	0
7a6771
+.LC.debug_pubnames:
7a6771
+	.long 0x0000002f
7a6771
+	.byte 0x00
7a6771
+	.byte 0x02
7a6771
+	.long .LC.debug_info
7a6771
+	.long 0x00000111
7a6771
+	.long 0x000000dc
7a6771
+	.long 0x79000000
7a6771
+	.long 0x00ec7a00
7a6771
+	.long 0x000000fc
7a6771
+	.long 0x5f5f6d6f
7a6771
+	.long 0x64315f4e
7a6771
+	.long 0x4d4f445f
7a6771
+	.long 0x73756231
7a6771
+	.long 0x00000000
7a6771
+	.long 0x00000000
7a6771
+	.byte 0x18
7a6771
+	.byte 0x00
7a6771
+	.byte 0x02
7a6771
+	.long .LC.debug_info273
7a6771
+	.long 0x00000127
7a6771
+	.long 0x0000010f
7a6771
+	.long 0x5f6d6169
7a6771
+	.long 0x6e000000
7a6771
+	.byte 0x00
7a6771
+	.byte 0x00
7a6771
+
7a6771
+	.section	".debug_info"
7a6771
+	.align	0
7a6771
+.LC.debug_info:
7a6771
+	.long 0x0000010d
7a6771
+	.byte 0x00
7a6771
+	.byte 0x02
7a6771
+	.long .LC.debug_abbrev
7a6771
+	.long 0x0401786c
7a6771
+	.long 0x662d7661
7a6771
+	.long 0x72696162
7a6771
+	.long 0x6c652e66
7a6771
+	.byte 0x00
7a6771
+	.long .LC.debug_line
7a6771
+	.long .LC.text
7a6771
+	.long .LC.text168
7a6771
+	.long 0x082f726f
7a6771
+	.long 0x6f742f73
7a6771
+	.long 0x65726769
7a6771
+	.long 0x6f646a2f
7a6771
+	.long 0x6764622d
7a6771
+	.long 0x372e302e
7a6771
+	.long 0x312d3432
7a6771
+	.long 0x2e656c35
7a6771
+	.long 0x2f676462
7a6771
+	.long 0x2d372e30
7a6771
+	.long 0x2e312f67
7a6771
+	.long 0x64622f74
7a6771
+	.long 0x65737473
7a6771
+	.long 0x75697465
7a6771
+	.long 0x2f676462
7a6771
+	.long 0x2e666f72
7a6771
+	.long 0x7472616e
7a6771
+	.long 0x0049424d
7a6771
+	.long 0x20584c20
7a6771
+	.long 0x466f7274
7a6771
+	.long 0x72616e20
7a6771
+	.long 0x666f7220
7a6771
+	.long 0x4c696e75
7a6771
+	.long 0x782c2056
7a6771
+	.long 0x31342e31
7a6771
+	.long 0x20283537
7a6771
+	.long 0x36352d4a
7a6771
+	.long 0x30352c20
7a6771
+	.long 0x35373235
7a6771
+	.long 0x2d433735
7a6771
+	.long 0x29205665
7a6771
+	.long 0x7273696f
7a6771
+	.long 0x6e203134
7a6771
+	.long 0x2e30312e
7a6771
+	.long 0x30303030
7a6771
+	.long 0x2e303030
7a6771
+	.long 0x30000249
7a6771
+	.long 0x4e544547
7a6771
+	.long 0x45520004
7a6771
+	.long 0x05030005
7a6771
+	.long 0x02524541
7a6771
+	.long 0x4c000404
7a6771
+	.long 0x04050000
7a6771
+	.long 0x0000c706
7a6771
+	.long 0x6d6f6431
7a6771
+	.long 0x00070503
7a6771
+	.long __N_mod1
7a6771
+	.long 0x79000100
7a6771
+	.long 0x01000000
7a6771
+	.long 0xd0070503
7a6771
+	.long __N__mod1
7a6771
+	.long 0x7a000100
7a6771
+	.long 0x01000000
7a6771
+	.long 0xc7087375
7a6771
+	.byte 0x62
7a6771
+	.byte 0x31
7a6771
+	.byte 0x00
7a6771
+	.long .LC.text32
7a6771
+	.long .LC.text168
7a6771
+	.long 0x01180101
7a6771
+	.byte 0x6f
7a6771
+	.byte 0x00
7a6771
+	.byte 0x00
7a6771
+.LC.debug_info273:
7a6771
+	.long 0x00000123
7a6771
+	.byte 0x00
7a6771
+	.byte 0x02
7a6771
+	.long .LC.debug_abbrev97
7a6771
+	.long 0x0401786c
7a6771
+	.long 0x662d7661
7a6771
+	.long 0x72696162
7a6771
+	.long 0x6c652e66
7a6771
+	.byte 0x00
7a6771
+	.long .LC.debug_line98
7a6771
+	.long .LC.text256
7a6771
+	.long .LC.text324
7a6771
+	.long 0x082f726f
7a6771
+	.long 0x6f742f73
7a6771
+	.long 0x65726769
7a6771
+	.long 0x6f646a2f
7a6771
+	.long 0x6764622d
7a6771
+	.long 0x372e302e
7a6771
+	.long 0x312d3432
7a6771
+	.long 0x2e656c35
7a6771
+	.long 0x2f676462
7a6771
+	.long 0x2d372e30
7a6771
+	.long 0x2e312f67
7a6771
+	.long 0x64622f74
7a6771
+	.long 0x65737473
7a6771
+	.long 0x75697465
7a6771
+	.long 0x2f676462
7a6771
+	.long 0x2e666f72
7a6771
+	.long 0x7472616e
7a6771
+	.long 0x0049424d
7a6771
+	.long 0x20584c20
7a6771
+	.long 0x466f7274
7a6771
+	.long 0x72616e20
7a6771
+	.long 0x666f7220
7a6771
+	.long 0x4c696e75
7a6771
+	.long 0x782c2056
7a6771
+	.long 0x31342e31
7a6771
+	.long 0x20283537
7a6771
+	.long 0x36352d4a
7a6771
+	.long 0x30352c20
7a6771
+	.long 0x35373235
7a6771
+	.long 0x2d433735
7a6771
+	.long 0x29205665
7a6771
+	.long 0x7273696f
7a6771
+	.long 0x6e203134
7a6771
+	.long 0x2e30312e
7a6771
+	.long 0x30303030
7a6771
+	.long 0x2e303030
7a6771
+	.long 0x30000249
7a6771
+	.long 0x4e544547
7a6771
+	.long 0x45520004
7a6771
+	.long 0x05030005
7a6771
+	.long 0x02524541
7a6771
+	.long 0x4c000404
7a6771
+	.long 0x04000000
7a6771
+	.long 0xb9050000
7a6771
+	.long 0x0000c706
7a6771
+	.long 0x000000f4
7a6771
+	.long 0x26264e26
7a6771
+	.long 0x6d6f6431
7a6771
+	.long 0x00080779
7a6771
+	.long 0x00022300
7a6771
+	.long 0x000000d4
7a6771
+	.long 0x00060000
7a6771
+	.long 0x010f2626
7a6771
+	.long 0x4e26266d
7a6771
+	.long 0x6f643100
7a6771
+	.long 0x04077a00
7a6771
+	.long 0x02230000
7a6771
+	.long 0x0000c700
7a6771
+	.long 0x085f6d61
7a6771
+	.byte 0x69
7a6771
+	.byte 0x6e
7a6771
+	.byte 0x00
7a6771
+	.long .LC.text256
7a6771
+	.long .LC.text324
7a6771
+	.long 0x0201016f
7a6771
+	.long 0x000000b9
7a6771
+	.byte 0x00
7a6771
+
7a6771
+	.section	".debug_abbrev"
7a6771
+	.align	0
7a6771
+.LC.debug_abbrev:
7a6771
+	.long 0x01110103
7a6771
+	.long 0x08100611
7a6771
+	.long 0x01120113
7a6771
+	.long 0x0b1b0825
7a6771
+	.long 0x08000002
7a6771
+	.long 0x24000308
7a6771
+	.long 0x0b0b3e0b
7a6771
+	.long 0x00000324
7a6771
+	.long 0x000b0b3e
7a6771
+	.long 0x0b000004
7a6771
+	.long 0x15000000
7a6771
+	.long 0x050f0033
7a6771
+	.long 0x0b491300
7a6771
+	.long 0x00061e01
7a6771
+	.long 0x03080000
7a6771
+	.long 0x07340002
7a6771
+	.long 0x0a03083a
7a6771
+	.long 0x0b3b0b3f
7a6771
+	.long 0x0c491300
7a6771
+	.long 0x00082e00
7a6771
+	.long 0x03081101
7a6771
+	.long 0x12013a0b
7a6771
+	.long 0x3b0b3f0c
7a6771
+	.long 0x400a0000
7a6771
+	.byte 0x00
7a6771
+.LC.debug_abbrev97:
7a6771
+	.long 0x01110103
7a6771
+	.long 0x08100611
7a6771
+	.long 0x01120113
7a6771
+	.long 0x0b1b0825
7a6771
+	.long 0x08000002
7a6771
+	.long 0x24000308
7a6771
+	.long 0x0b0b3e0b
7a6771
+	.long 0x00000324
7a6771
+	.long 0x000b0b3e
7a6771
+	.long 0x0b000004
7a6771
+	.long 0x15004913
7a6771
+	.long 0x0000050f
7a6771
+	.long 0x00330b49
7a6771
+	.long 0x13000006
7a6771
+	.long 0x13010113
7a6771
+	.long 0x03080b0b
7a6771
+	.long 0x0000070d
7a6771
+	.long 0x00030838
7a6771
+	.long 0x0a491300
7a6771
+	.long 0x00082e00
7a6771
+	.long 0x03081101
7a6771
+	.long 0x1201360b
7a6771
+	.long 0x3f0c400a
7a6771
+	.long 0x49130000
7a6771
+	.byte 0x00
7a6771
+
7a6771
+	.section	".debug_line"
7a6771
+	.align	0
7a6771
+.LC.debug_line:
7a6771
+	.long 0x0000005e
7a6771
+	.long 0x00020000
7a6771
+	.long 0x00220101
7a6771
+	.long 0x9cdc0a00
7a6771
+	.long 0x01010101
7a6771
+	.long 0x00000001
7a6771
+	.long 0x00786c66
7a6771
+	.long 0x2d766172
7a6771
+	.long 0x6961626c
7a6771
+	.long 0x652e6600
7a6771
+	.long 0x00000000
7a6771
+	.long 0x04010005
7a6771
+	.byte 0x02
7a6771
+	.long .LC.text
7a6771
+	.long 0x03130109
7a6771
+	.long 0x000c0309
7a6771
+	.long 0x01090014
7a6771
+	.long 0x037b0109
7a6771
+	.long 0x00180301
7a6771
+	.long 0x01090038
7a6771
+	.long 0x03010109
7a6771
+	.long 0x000c0301
7a6771
+	.long 0x01090014
7a6771
+	.long 0x03010109
7a6771
+	.long 0x00180001
7a6771
+	.byte 0x01
7a6771
+.LC.debug_line98:
7a6771
+	.long 0x00000046
7a6771
+	.long 0x00020000
7a6771
+	.long 0x00220101
7a6771
+	.long 0x9cdc0a00
7a6771
+	.long 0x01010101
7a6771
+	.long 0x00000001
7a6771
+	.long 0x00786c66
7a6771
+	.long 0x2d766172
7a6771
+	.long 0x6961626c
7a6771
+	.long 0x652e6600
7a6771
+	.long 0x00000000
7a6771
+	.long 0x04010005
7a6771
+	.byte 0x02
7a6771
+	.long .LC.text256
7a6771
+	.long 0x031f0109
7a6771
+	.long 0x00140300
7a6771
+	.long 0x01090004
7a6771
+	.long 0x03010109
7a6771
+	.long 0x002c0001
7a6771
+	.byte 0x01
7a6771
+
7a6771
+	.section	".debug_frame"
7a6771
+	.align	0
7a6771
+.LC.debug_frame:
7a6771
+	.long 0x0000000c
7a6771
+	.long 0xffffffff
7a6771
+	.long 0x0100047c
7a6771
+	.long 0x410c0100
7a6771
+	.long 0x0000001c
7a6771
+	.long .LC.debug_frame
7a6771
+	.long .LC.text
7a6771
+	.long 0x00000020
7a6771
+	.long 0x410e2041
7a6771
+	.long 0x9f01410d
7a6771
+	.long 0x1f410a42
7a6771
+	.long 0xdf420b00
7a6771
+	.long 0x00000020
7a6771
+	.long .LC.debug_frame
7a6771
+	.long .LC.text32
7a6771
+	.long 0x00000088
7a6771
+	.long 0x410e2041
7a6771
+	.long 0x9f01419e
7a6771
+	.long 0x02410d1f
7a6771
+	.long 0x590a42de
7a6771
+	.long 0x41df420b
7a6771
+.LC.debug_frame84:
7a6771
+	.long 0x0000000c
7a6771
+	.long 0xffffffff
7a6771
+	.long 0x0100047c
7a6771
+	.long 0x410c0100
7a6771
+	.long 0x00000020
7a6771
+	.long .LC.debug_frame84
7a6771
+	.long .LC.text256
7a6771
+	.long 0x00000044
7a6771
+	.long 0x420e2041
7a6771
+	.long 0x9f014111
7a6771
+	.long 0x417f410d
7a6771
+	.long 0x1f460a42
7a6771
+	.long 0xdf440b00
7a6771
+
7a6771
+	.section	".debug_pubtypes"
7a6771
+	.align	0
7a6771
+.LC.debug_pubtypes:
7a6771
+	.long 0x00000023
7a6771
+	.byte 0x00
7a6771
+	.byte 0x02
7a6771
+	.long .LC.debug_info
7a6771
+	.long 0x00000111
7a6771
+	.long 0x000000b9
7a6771
+	.long 0x494e5445
7a6771
+	.long 0x47455200
7a6771
+	.long 0x000000c7
7a6771
+	.long 0x5245414c
7a6771
+	.long 0x00000000
7a6771
+	.long 0x00000000
7a6771
+	.byte 0x3e
7a6771
+	.byte 0x00
7a6771
+	.byte 0x02
7a6771
+	.long .LC.debug_info273
7a6771
+	.long 0x00000127
7a6771
+	.long 0x000000b9
7a6771
+	.long 0x494e5445
7a6771
+	.long 0x47455200
7a6771
+	.long 0x000000c7
7a6771
+	.long 0x5245414c
7a6771
+	.long 0x00000000
7a6771
+	.long 0xda26264e
7a6771
+	.long 0x266d6f64
7a6771
+	.long 0x31000000
7a6771
+	.long 0x00f42626
7a6771
+	.long 0x4e26266d
7a6771
+	.long 0x6f643100
7a6771
+	.long 0x00000000
7a6771
+
7a6771
+	.comm   __N__mod1,4,16
7a6771
Index: gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.exp
7a6771
===================================================================
7a6771
--- /dev/null
7a6771
+++ gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.exp
7a6771
@@ -0,0 +1,37 @@
7a6771
+# Copyright 2012 Free Software Foundation, Inc.
7a6771
+
7a6771
+# This program is free software; you can redistribute it and/or modify
7a6771
+# it under the terms of the GNU General Public License as published by
7a6771
+# the Free Software Foundation; either version 3 of the License, or
7a6771
+# (at your option) any later version.
7a6771
+#
7a6771
+# This program is distributed in the hope that it will be useful,
7a6771
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
7a6771
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
7a6771
+# GNU General Public License for more details.
7a6771
+#
7a6771
+# You should have received a copy of the GNU General Public License
7a6771
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
7a6771
+
7a6771
+# This test can only be run on PPC64 machines.
7a6771
+
7a6771
+if { ![istarget powerpc64-*] || ![is_ilp32_target] } {
7a6771
+    return -1
7a6771
+}
7a6771
+
7a6771
+set testfile "xlf-variable"
7a6771
+set srcfile ${testfile}.S
7a6771
+
7a6771
+if { [prepare_for_testing $testfile.exp $testfile $srcfile] } {
7a6771
+    return -1
7a6771
+}
7a6771
+
7a6771
+if { ![runto_main] } {
7a6771
+    return -1
7a6771
+}
7a6771
+
7a6771
+gdb_test "step" ".*y => z.*" "y => z"
7a6771
+gdb_test "step" ".*y = 3\.0.*" "y = 3.0"
7a6771
+gdb_test "step" ".*nullify \\(y\\).*" "nullify (y)"
7a6771
+gdb_test "print z" "= 3" "z = 3"
7a6771
+gdb_test "ptype z" "= REAL" "z is REAL"
7a6771
Index: gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.f
7a6771
===================================================================
7a6771
--- /dev/null
7a6771
+++ gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.f
7a6771
@@ -0,0 +1,33 @@
7a6771
+c Copyright 2012 Free Software Foundation, Inc.
7a6771
+c
7a6771
+c This program is free software; you can redistribute it and/or modify
7a6771
+c it under the terms of the GNU General Public License as published by
7a6771
+c the Free Software Foundation; either version 3 of the License, or
7a6771
+c (at your option) any later version.
7a6771
+c
7a6771
+c This program is distributed in the hope that it will be useful,
7a6771
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
7a6771
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
7a6771
+c GNU General Public License for more details.
7a6771
+c
7a6771
+c You should have received a copy of the GNU General Public License
7a6771
+c along with this program.  If not, see <http://www.gnu.org/licenses/>.
7a6771
+
7a6771
+c This file is the Fortran source file for xlf-variable.f.
7a6771
+c It was used to generate the assembly output called xlf-variable.S,
7a6771
+c which was generated using IBM's XLF compiler.
7a6771
+
7a6771
+        module mod1
7a6771
+          real, pointer :: y
7a6771
+          real, target :: z
7a6771
+        contains
7a6771
+          subroutine sub1
7a6771
+            y => z
7a6771
+            y = 3.0
7a6771
+            nullify (y)
7a6771
+          end subroutine
7a6771
+        end module
7a6771
+
7a6771
+        use mod1
7a6771
+        call sub1
7a6771
+        end