gdb-rhel5.9-testcase-xlf-var-inside-mod.patch

   1 Index: 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
 644 Index: 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"
 686 Index: 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