]> git.pld-linux.org Git - packages/gdb.git/blame - gdb-rhel5.9-testcase-xlf-var-inside-mod.patch
projects / packages / gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
cleanup adapter's noise.
[packages/gdb.git] / gdb-rhel5.9-testcase-xlf-var-inside-mod.patch
CommitLineData
a7de96f0
PS		 1Index: gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.S
2===================================================================
3--- /dev/null
4+++ gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.S
5@@ -0,0 +1,638 @@
6+/* Copyright (C) 2012 Free Software Foundation, Inc.
7+
8+ This file is part of GDB.
9+
10+ This program is free software; you can redistribute it and/or modify
11+ it under the terms of the GNU General Public License as published by
12+ the Free Software Foundation; either version 3 of the License, or
13+ (at your option) any later version.
14+
15+ This program is distributed in the hope that it will be useful,
16+ but WITHOUT ANY WARRANTY; without even the implied warranty of
17+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18+ GNU General Public License for more details.
19+
20+ You should have received a copy of the GNU General Public License
21+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
22+
23+/* This file has been generated from the file named `xlf-variable.f', which
24+ should be present in this directory. The command used to generate this
25+ file was:
26+
27+ xlf -qnoopt -g9 -S xlf-variable.f -o xlf-variable.S
28+
29+ After issuing this command, you must hand-edit this file and remove the
30+ mentions for `_xlfExit', since it is only present in XLF-specific
31+ libraries. You must also make sure to remove the file named `mod1.mod'
32+ which will be created in the compilation directory.
33+
34+ In order to generated this file, the following XLF package was used:
35+
36+ xlf.14.1.0.0.linux.eval.tar.gz
37+
38+ These instructions may be different for different versions of the XLF
39+ compiler. */
40+
41+.set r0,0; .set SP,1; .set RTOC,2; .set r3,3; .set r4,4
42+.set r5,5; .set r6,6; .set r7,7; .set r8,8; .set r9,9
43+.set r10,10; .set r11,11; .set r12,12; .set r13,13; .set r14,14
44+.set r15,15; .set r16,16; .set r17,17; .set r18,18; .set r19,19
45+.set r20,20; .set r21,21; .set r22,22; .set r23,23; .set r24,24
46+.set r25,25; .set r26,26; .set r27,27; .set r28,28; .set r29,29
47+.set r30,30; .set r31,31
48+.set fp0,0; .set fp1,1; .set fp2,2; .set fp3,3; .set fp4,4
49+.set fp5,5; .set fp6,6; .set fp7,7; .set fp8,8; .set fp9,9
50+.set fp10,10; .set fp11,11; .set fp12,12; .set fp13,13; .set fp14,14
51+.set fp15,15; .set fp16,16; .set fp17,17; .set fp18,18; .set fp19,19
52+.set fp20,20; .set fp21,21; .set fp22,22; .set fp23,23; .set fp24,24
53+.set fp25,25; .set fp26,26; .set fp27,27; .set fp28,28; .set fp29,29
54+.set fp30,30; .set fp31,31
55+.set v0,0; .set v1,1; .set v2,2; .set v3,3; .set v4,4
56+.set v5,5; .set v6,6; .set v7,7; .set v8,8; .set v9,9
57+.set v10,10; .set v11,11; .set v12,12; .set v13,13; .set v14,14
58+.set v15,15; .set v16,16; .set v17,17; .set v18,18; .set v19,19
59+.set v20,20; .set v21,21; .set v22,22; .set v23,23; .set v24,24
60+.set v25,25; .set v26,26; .set v27,27; .set v28,28; .set v29,29
61+.set v30,30; .set v31,31
62+.set q0,0; .set q1,1; .set q2,2; .set q3,3; .set q4,4
63+.set q5,5; .set q6,6; .set q7,7; .set q8,8; .set q9,9
64+.set q10,10; .set q11,11; .set q12,12; .set q13,13; .set q14,14
65+.set q15,15; .set q16,16; .set q17,17; .set q18,18; .set q19,19
66+.set q20,20; .set q21,21; .set q22,22; .set q23,23; .set q24,24
67+.set q25,25; .set q26,26; .set q27,27; .set q28,28; .set q29,29
68+.set q30,30; .set q31,31
69+.set MQ,0; .set XER,1; .set FROM_RTCU,4; .set FROM_RTCL,5; .set FROM_DEC,6
70+.set LR,8; .set CTR,9; .set TID,17; .set DSISR,18; .set DAR,19; .set TO_RTCU,20
71+.set TO_RTCL,21; .set TO_DEC,22; .set SDR_0,24; .set SDR_1,25; .set SRR_0,26
72+.set SRR_1,27
73+.set BO_dCTR_NZERO_AND_NOT,0; .set BO_dCTR_NZERO_AND_NOT_1,1
74+.set BO_dCTR_ZERO_AND_NOT,2; .set BO_dCTR_ZERO_AND_NOT_1,3
75+.set BO_IF_NOT,4; .set BO_IF_NOT_1,5; .set BO_IF_NOT_2,6
76+.set BO_IF_NOT_3,7; .set BO_dCTR_NZERO_AND,8; .set BO_dCTR_NZERO_AND_1,9
77+.set BO_dCTR_ZERO_AND,10; .set BO_dCTR_ZERO_AND_1,11; .set BO_IF,12
78+.set BO_IF_1,13; .set BO_IF_2,14; .set BO_IF_3,15; .set BO_dCTR_NZERO,16
79+.set BO_dCTR_NZERO_1,17; .set BO_dCTR_ZERO,18; .set BO_dCTR_ZERO_1,19
80+.set BO_ALWAYS,20; .set BO_ALWAYS_1,21; .set BO_ALWAYS_2,22
81+.set BO_ALWAYS_3,23; .set BO_dCTR_NZERO_8,24; .set BO_dCTR_NZERO_9,25
82+.set BO_dCTR_ZERO_8,26; .set BO_dCTR_ZERO_9,27; .set BO_ALWAYS_8,28
83+.set BO_ALWAYS_9,29; .set BO_ALWAYS_10,30; .set BO_ALWAYS_11,31
84+.set CR0_LT,0; .set CR0_GT,1; .set CR0_EQ,2; .set CR0_SO,3
85+.set CR1_FX,4; .set CR1_FEX,5; .set CR1_VX,6; .set CR1_OX,7
86+.set CR2_LT,8; .set CR2_GT,9; .set CR2_EQ,10; .set CR2_SO,11
87+.set CR3_LT,12; .set CR3_GT,13; .set CR3_EQ,14; .set CR3_SO,15
88+.set CR4_LT,16; .set CR4_GT,17; .set CR4_EQ,18; .set CR4_SO,19
89+.set CR5_LT,20; .set CR5_GT,21; .set CR5_EQ,22; .set CR5_SO,23
90+.set CR6_LT,24; .set CR6_GT,25; .set CR6_EQ,26; .set CR6_SO,27
91+.set CR7_LT,28; .set CR7_GT,29; .set CR7_EQ,30; .set CR7_SO,31
92+.set TO_LT,16; .set TO_GT,8; .set TO_EQ,4; .set TO_LLT,2; .set TO_LGT,1
93+
94+ .file "xlf-variable.f"
95+ .globl __mod1_NMOD_____mod1
96+ .type __mod1_NMOD_____mod1,@function
97+ .size __mod1_NMOD_____mod1,32
98+ .globl main
99+ .type main,@function
100+ .size main,68
101+ .globl __mod1_NMOD_sub1
102+ .type __mod1_NMOD_sub1,@function
103+ .size __mod1_NMOD_sub1,136
104+ .globl _main
105+ .type _main,@function
106+ .size _main,68
107+
108+ .section ".text"
109+ .align 7
110+.LC.text:
111+__mod1_NMOD_____mod1:
112+ stwu SP,-32(SP)
113+ stw r31,28(SP)
114+ or r31,SP,SP
115+ b $+0x4
116+ addi r11,r31,32
117+ lwz r31,-4(r11)
118+ or SP,r11,r11
119+ bclr BO_ALWAYS,CR0_LT
120+.LC.text32:
121+
122+__mod1_NMOD_sub1:
123+ stwu SP,-32(SP)
124+ stw r31,28(SP)
125+ stw r30,24(SP)
126+ or r31,SP,SP
127+ addis r30,r0,.const_dr@ha
128+ addi r30,r30,.const_dr@l
129+ addis r3,r0,__N_mod1@ha
130+ addi r3,r3,__N_mod1@l
131+ addi r0,r0,1
132+ stb r0,4(r3)
133+ addi r4,r0,14
134+ stb r4,5(r3)
135+ stb r0,7(r3)
136+ addis r5,r0,__N__mod1@ha
137+ addi r5,r5,__N__mod1@l
138+ stw r5,0(r3)
139+ lbz r5,6(r3)
140+ rlwinm r5,r5,0,25,25
141+ ori r5,r5,0x0040
142+ stb r5,6(r3)
143+ lwz r5,0(r3)
144+ lfs fp0,0(r30)
145+ stfs fp0,0(r5)
146+ stb r0,4(r3)
147+ stb r4,5(r3)
148+ addi r4,r0,0
149+ stb r4,6(r3)
150+ stb r0,7(r3)
151+ b $+0x4
152+ addi r11,r31,32
153+ lwz r30,-8(r11)
154+ lwz r31,-4(r11)
155+ or SP,r11,r11
156+ bclr BO_ALWAYS,CR0_LT
157+.LC.text168:
158+ .long 0
159+ .skip 0x54
160+.LC.text256:
161+
162+main:
163+_main:
164+ mfspr r0,LR
165+ stwu SP,-32(SP)
166+ stw r31,28(SP)
167+ stw r0,36(SP)
168+ or r31,SP,SP
169+ bl __mod1_NMOD_sub1
170+ addi r3,r0,0
171+.LC.text288:
172+
173+ tw TO_EQ,r14,r14
174+ addi r3,r0,0
175+ b $+0x4
176+ addi r11,r31,32
177+ lwz r31,-4(r11)
178+ lwz r0,4(r11)
179+ mtspr LR,r0
180+ or SP,r11,r11
181+ bclr BO_ALWAYS,CR0_LT
182+.LC.text324:
183+
184+
185+ .section ".rodata","a"
186+ .align 2
187+.LC.rodata:
188+ .type .const_dr,@object
189+ .size .const_dr,4
190+.const_dr:
191+ .long 0x40400000
192+
193+ .section ".eh_frame","wa"
194+ .align 2
195+.LC.eh_frame:
196+ .long 0x0000000c
197+ .long 0x00000000
198+ .long 0x0100047c
199+ .long 0x410c0100
200+ .long 0x0000001c
201+ .long 0x00000014
202+ .long .LC.text
203+ .long 0x00000020
204+ .long 0x410e2041
205+ .long 0x9f01410d
206+ .long 0x1f410a42
207+ .long 0xdf420b00
208+ .long 0x00000020
209+ .long 0x00000034
210+ .long .LC.text32
211+ .long 0x00000088
212+ .long 0x410e2041
213+ .long 0x9f01419e
214+ .long 0x02410d1f
215+ .long 0x590a42de
216+ .long 0x41df420b
217+ .long 0x0000000c
218+ .long 0x00000000
219+ .long 0x0100047c
220+ .long 0x410c0100
221+ .long 0x00000020
222+ .long 0x00000014
223+ .long .LC.text256
224+ .long 0x00000044
225+ .long 0x420e2041
226+ .long 0x9f014111
227+ .long 0x417f410d
228+ .long 0x1f460a42
229+ .long 0xdf440b00
230+
231+ .section ".data","wa"
232+ .align 4
233+.LC.data:
234+ .globl __N_mod1
235+ .type __N_mod1,@object
236+ .size __N_mod1,8
237+__N_mod1:
238+ .long 0x00000000
239+ .long 0x01000001
240+
241+ .section ".except.1","wa"
242+ .align 1
243+.LC.except.1:
244+ .long .LC.text288
245+ .byte 0x01
246+ .byte 0x09
247+
248+ .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."
249+
250+ .section ".debug_aranges"
251+ .align 0
252+.LC.debug_aranges:
253+ .long 0x0000001c
254+ .byte 0x00
255+ .byte 0x02
256+ .long .LC.debug_info
257+ .long 0x04000000
258+ .byte 0x00
259+ .byte 0x00
260+ .long .LC.text
261+ .long 0x000000a8
262+ .long 0x00000000
263+ .long 0x00000000
264+ .long 0x0000001c
265+ .byte 0x00
266+ .byte 0x02
267+ .long .LC.debug_info273
268+ .long 0x04000000
269+ .byte 0x00
270+ .byte 0x00
271+ .long .LC.text256
272+ .long 0x00000044
273+ .long 0x00000000
274+ .long 0x00000000
275+
276+ .section ".debug_pubnames"
277+ .align 0
278+.LC.debug_pubnames:
279+ .long 0x0000002f
280+ .byte 0x00
281+ .byte 0x02
282+ .long .LC.debug_info
283+ .long 0x00000111
284+ .long 0x000000dc
285+ .long 0x79000000
286+ .long 0x00ec7a00
287+ .long 0x000000fc
288+ .long 0x5f5f6d6f
289+ .long 0x64315f4e
290+ .long 0x4d4f445f
291+ .long 0x73756231
292+ .long 0x00000000
293+ .long 0x00000000
294+ .byte 0x18
295+ .byte 0x00
296+ .byte 0x02
297+ .long .LC.debug_info273
298+ .long 0x00000127
299+ .long 0x0000010f
300+ .long 0x5f6d6169
301+ .long 0x6e000000
302+ .byte 0x00
303+ .byte 0x00
304+
305+ .section ".debug_info"
306+ .align 0
307+.LC.debug_info:
308+ .long 0x0000010d
309+ .byte 0x00
310+ .byte 0x02
311+ .long .LC.debug_abbrev
312+ .long 0x0401786c
313+ .long 0x662d7661
314+ .long 0x72696162
315+ .long 0x6c652e66
316+ .byte 0x00
317+ .long .LC.debug_line
318+ .long .LC.text
319+ .long .LC.text168
320+ .long 0x082f726f
321+ .long 0x6f742f73
322+ .long 0x65726769
323+ .long 0x6f646a2f
324+ .long 0x6764622d
325+ .long 0x372e302e
326+ .long 0x312d3432
327+ .long 0x2e656c35
328+ .long 0x2f676462
329+ .long 0x2d372e30
330+ .long 0x2e312f67
331+ .long 0x64622f74
332+ .long 0x65737473
333+ .long 0x75697465
334+ .long 0x2f676462
335+ .long 0x2e666f72
336+ .long 0x7472616e
337+ .long 0x0049424d
338+ .long 0x20584c20
339+ .long 0x466f7274
340+ .long 0x72616e20
341+ .long 0x666f7220
342+ .long 0x4c696e75
343+ .long 0x782c2056
344+ .long 0x31342e31
345+ .long 0x20283537
346+ .long 0x36352d4a
347+ .long 0x30352c20
348+ .long 0x35373235
349+ .long 0x2d433735
350+ .long 0x29205665
351+ .long 0x7273696f
352+ .long 0x6e203134
353+ .long 0x2e30312e
354+ .long 0x30303030
355+ .long 0x2e303030
356+ .long 0x30000249
357+ .long 0x4e544547
358+ .long 0x45520004
359+ .long 0x05030005
360+ .long 0x02524541
361+ .long 0x4c000404
362+ .long 0x04050000
363+ .long 0x0000c706
364+ .long 0x6d6f6431
365+ .long 0x00070503
366+ .long __N_mod1
367+ .long 0x79000100
368+ .long 0x01000000
369+ .long 0xd0070503
370+ .long __N__mod1
371+ .long 0x7a000100
372+ .long 0x01000000
373+ .long 0xc7087375
374+ .byte 0x62
375+ .byte 0x31
376+ .byte 0x00
377+ .long .LC.text32
378+ .long .LC.text168
379+ .long 0x01180101
380+ .byte 0x6f
381+ .byte 0x00
382+ .byte 0x00
383+.LC.debug_info273:
384+ .long 0x00000123
385+ .byte 0x00
386+ .byte 0x02
387+ .long .LC.debug_abbrev97
388+ .long 0x0401786c
389+ .long 0x662d7661
390+ .long 0x72696162
391+ .long 0x6c652e66
392+ .byte 0x00
393+ .long .LC.debug_line98
394+ .long .LC.text256
395+ .long .LC.text324
396+ .long 0x082f726f
397+ .long 0x6f742f73
398+ .long 0x65726769
399+ .long 0x6f646a2f
400+ .long 0x6764622d
401+ .long 0x372e302e
402+ .long 0x312d3432
403+ .long 0x2e656c35
404+ .long 0x2f676462
405+ .long 0x2d372e30
406+ .long 0x2e312f67
407+ .long 0x64622f74
408+ .long 0x65737473
409+ .long 0x75697465
410+ .long 0x2f676462
411+ .long 0x2e666f72
412+ .long 0x7472616e
413+ .long 0x0049424d
414+ .long 0x20584c20
415+ .long 0x466f7274
416+ .long 0x72616e20
417+ .long 0x666f7220
418+ .long 0x4c696e75
419+ .long 0x782c2056
420+ .long 0x31342e31
421+ .long 0x20283537
422+ .long 0x36352d4a
423+ .long 0x30352c20
424+ .long 0x35373235
425+ .long 0x2d433735
426+ .long 0x29205665
427+ .long 0x7273696f
428+ .long 0x6e203134
429+ .long 0x2e30312e
430+ .long 0x30303030
431+ .long 0x2e303030
432+ .long 0x30000249
433+ .long 0x4e544547
434+ .long 0x45520004
435+ .long 0x05030005
436+ .long 0x02524541
437+ .long 0x4c000404
438+ .long 0x04000000
439+ .long 0xb9050000
440+ .long 0x0000c706
441+ .long 0x000000f4
442+ .long 0x26264e26
443+ .long 0x6d6f6431
444+ .long 0x00080779
445+ .long 0x00022300
446+ .long 0x000000d4
447+ .long 0x00060000
448+ .long 0x010f2626
449+ .long 0x4e26266d
450+ .long 0x6f643100
451+ .long 0x04077a00
452+ .long 0x02230000
453+ .long 0x0000c700
454+ .long 0x085f6d61
455+ .byte 0x69
456+ .byte 0x6e
457+ .byte 0x00
458+ .long .LC.text256
459+ .long .LC.text324
460+ .long 0x0201016f
461+ .long 0x000000b9
462+ .byte 0x00
463+
464+ .section ".debug_abbrev"
465+ .align 0
466+.LC.debug_abbrev:
467+ .long 0x01110103
468+ .long 0x08100611
469+ .long 0x01120113
470+ .long 0x0b1b0825
471+ .long 0x08000002
472+ .long 0x24000308
473+ .long 0x0b0b3e0b
474+ .long 0x00000324
475+ .long 0x000b0b3e
476+ .long 0x0b000004
477+ .long 0x15000000
478+ .long 0x050f0033
479+ .long 0x0b491300
480+ .long 0x00061e01
481+ .long 0x03080000
482+ .long 0x07340002
483+ .long 0x0a03083a
484+ .long 0x0b3b0b3f
485+ .long 0x0c491300
486+ .long 0x00082e00
487+ .long 0x03081101
488+ .long 0x12013a0b
489+ .long 0x3b0b3f0c
490+ .long 0x400a0000
491+ .byte 0x00
492+.LC.debug_abbrev97:
493+ .long 0x01110103
494+ .long 0x08100611
495+ .long 0x01120113
496+ .long 0x0b1b0825
497+ .long 0x08000002
498+ .long 0x24000308
499+ .long 0x0b0b3e0b
500+ .long 0x00000324
501+ .long 0x000b0b3e
502+ .long 0x0b000004
503+ .long 0x15004913
504+ .long 0x0000050f
505+ .long 0x00330b49
506+ .long 0x13000006
507+ .long 0x13010113
508+ .long 0x03080b0b
509+ .long 0x0000070d
510+ .long 0x00030838
511+ .long 0x0a491300
512+ .long 0x00082e00
513+ .long 0x03081101
514+ .long 0x1201360b
515+ .long 0x3f0c400a
516+ .long 0x49130000
517+ .byte 0x00
518+
519+ .section ".debug_line"
520+ .align 0
521+.LC.debug_line:
522+ .long 0x0000005e
523+ .long 0x00020000
524+ .long 0x00220101
525+ .long 0x9cdc0a00
526+ .long 0x01010101
527+ .long 0x00000001
528+ .long 0x00786c66
529+ .long 0x2d766172
530+ .long 0x6961626c
531+ .long 0x652e6600
532+ .long 0x00000000
533+ .long 0x04010005
534+ .byte 0x02
535+ .long .LC.text
536+ .long 0x03130109
537+ .long 0x000c0309
538+ .long 0x01090014
539+ .long 0x037b0109
540+ .long 0x00180301
541+ .long 0x01090038
542+ .long 0x03010109
543+ .long 0x000c0301
544+ .long 0x01090014
545+ .long 0x03010109
546+ .long 0x00180001
547+ .byte 0x01
548+.LC.debug_line98:
549+ .long 0x00000046
550+ .long 0x00020000
551+ .long 0x00220101
552+ .long 0x9cdc0a00
553+ .long 0x01010101
554+ .long 0x00000001
555+ .long 0x00786c66
556+ .long 0x2d766172
557+ .long 0x6961626c
558+ .long 0x652e6600
559+ .long 0x00000000
560+ .long 0x04010005
561+ .byte 0x02
562+ .long .LC.text256
563+ .long 0x031f0109
564+ .long 0x00140300
565+ .long 0x01090004
566+ .long 0x03010109
567+ .long 0x002c0001
568+ .byte 0x01
569+
570+ .section ".debug_frame"
571+ .align 0
572+.LC.debug_frame:
573+ .long 0x0000000c
574+ .long 0xffffffff
575+ .long 0x0100047c
576+ .long 0x410c0100
577+ .long 0x0000001c
578+ .long .LC.debug_frame
579+ .long .LC.text
580+ .long 0x00000020
581+ .long 0x410e2041
582+ .long 0x9f01410d
583+ .long 0x1f410a42
584+ .long 0xdf420b00
585+ .long 0x00000020
586+ .long .LC.debug_frame
587+ .long .LC.text32
588+ .long 0x00000088
589+ .long 0x410e2041
590+ .long 0x9f01419e
591+ .long 0x02410d1f
592+ .long 0x590a42de
593+ .long 0x41df420b
594+.LC.debug_frame84:
595+ .long 0x0000000c
596+ .long 0xffffffff
597+ .long 0x0100047c
598+ .long 0x410c0100
599+ .long 0x00000020
600+ .long .LC.debug_frame84
601+ .long .LC.text256
602+ .long 0x00000044
603+ .long 0x420e2041
604+ .long 0x9f014111
605+ .long 0x417f410d
606+ .long 0x1f460a42
607+ .long 0xdf440b00
608+
609+ .section ".debug_pubtypes"
610+ .align 0
611+.LC.debug_pubtypes:
612+ .long 0x00000023
613+ .byte 0x00
614+ .byte 0x02
615+ .long .LC.debug_info
616+ .long 0x00000111
617+ .long 0x000000b9
618+ .long 0x494e5445
619+ .long 0x47455200
620+ .long 0x000000c7
621+ .long 0x5245414c
622+ .long 0x00000000
623+ .long 0x00000000
624+ .byte 0x3e
625+ .byte 0x00
626+ .byte 0x02
627+ .long .LC.debug_info273
628+ .long 0x00000127
629+ .long 0x000000b9
630+ .long 0x494e5445
631+ .long 0x47455200
632+ .long 0x000000c7
633+ .long 0x5245414c
634+ .long 0x00000000
635+ .long 0xda26264e
636+ .long 0x266d6f64
637+ .long 0x31000000
638+ .long 0x00f42626
639+ .long 0x4e26266d
640+ .long 0x6f643100
641+ .long 0x00000000
642+
643+ .comm __N__mod1,4,16
644Index: gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.exp
645===================================================================
646--- /dev/null
647+++ gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.exp
648@@ -0,0 +1,37 @@
649+# Copyright 2012 Free Software Foundation, Inc.
650+
651+# This program is free software; you can redistribute it and/or modify
652+# it under the terms of the GNU General Public License as published by
653+# the Free Software Foundation; either version 3 of the License, or
654+# (at your option) any later version.
655+#
656+# This program is distributed in the hope that it will be useful,
657+# but WITHOUT ANY WARRANTY; without even the implied warranty of
658+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
659+# GNU General Public License for more details.
660+#
661+# You should have received a copy of the GNU General Public License
662+# along with this program. If not, see <http://www.gnu.org/licenses/>.
663+
664+# This test can only be run on PPC64 machines.
665+
666+if { ![istarget powerpc64-*] || ![is_ilp32_target] } {
667+ return -1
668+}
669+
670+set testfile "xlf-variable"
671+set srcfile ${testfile}.S
672+
673+if { [prepare_for_testing $testfile.exp $testfile $srcfile] } {
674+ return -1
675+}
676+
677+if { ![runto_main] } {
678+ return -1
679+}
680+
681+gdb_test "step" ".*y => z.*" "y => z"
682+gdb_test "step" ".*y = 3\.0.*" "y = 3.0"
683+gdb_test "step" ".*nullify \\(y\\).*" "nullify (y)"
684+gdb_test "print z" "= 3" "z = 3"
685+gdb_test "ptype z" "= REAL" "z is REAL"
686Index: gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.f
687===================================================================
688--- /dev/null
689+++ gdb-7.4.50.20120603/gdb/testsuite/gdb.fortran/xlf-variable.f
690@@ -0,0 +1,33 @@
691+c Copyright 2012 Free Software Foundation, Inc.
692+c
693+c This program is free software; you can redistribute it and/or modify
694+c it under the terms of the GNU General Public License as published by
695+c the Free Software Foundation; either version 3 of the License, or
696+c (at your option) any later version.
697+c
698+c This program is distributed in the hope that it will be useful,
699+c but WITHOUT ANY WARRANTY; without even the implied warranty of
700+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
701+c GNU General Public License for more details.
702+c
703+c You should have received a copy of the GNU General Public License
704+c along with this program. If not, see <http://www.gnu.org/licenses/>.
705+
706+c This file is the Fortran source file for xlf-variable.f.
707+c It was used to generate the assembly output called xlf-variable.S,
708+c which was generated using IBM's XLF compiler.
709+
710+ module mod1
711+ real, pointer :: y
712+ real, target :: z
713+ contains
714+ subroutine sub1
715+ y => z
716+ y = 3.0
717+ nullify (y)
718+ end subroutine
719+ end module
720+
721+ use mod1
722+ call sub1
723+ end
A GNU source-level debugger for C, C++ and Fortran
This page took 0.116757 seconds and 4 git commands to generate.