On 01/16/2005 11:39 AM, Matthias Klose wrote:

> Please could you subscribe to the upstream report?

Done.

> using the current g77-3.4 from unstable, I cannot reproduce the
> segfault (you should link with g77-3.4 as well).

I still get a segfault with -O1 under g77-3.4, even when linking with
g77-3.4 as well as compiling.  Version is 3.4.3-7.  Note that in the
below I renamed radmul.f to radmul.F because otherwise gdb complained it
couldn't find radmul.F:

> wisteria[25]:~/test-g77-bug% g77-3.4 -g -c -O1 test.f -o test.o
> wisteria[26]:~/test-g77-bug% g77-3.4 -g -c -O1 radmul.F -o radmul.o
> wisteria[27]:~/test-g77-bug% g77-3.4 test.o radmul.o -lmathlib
-lpacklib -lkernlib
> wisteria[28]:~/test-g77-bug% ./a.out
>  calling dadmul
> zsh: segmentation fault  ./a.out

Backtrace from gdb follows.  I don't know whether this will help any.  I
also attach the radmul.s and test.s obtained by asking g77-3.4 to
-save-temps.

I will try to create a self-contained test case but may not have time
for this for a few days.

> wisteria[29]:~/test-g77-bug% gdb ./a.out
> GNU gdb 6.3-debian
> Copyright 2004 Free Software Foundation, Inc.
> GDB is free software, covered by the GNU General Public License, and you are
> welcome to change it and/or distribute copies of it under certain conditions.
> Type "show copying" to see the conditions.
> There is absolutely no warranty for GDB.  Type "show warranty" for details.
> This GDB was configured as "i386-linux"...Using host libthread_db library 
> "/lib/libthread_db.so.1".
> 
> (gdb) r
> Starting program: /home/kmccarty/test-g77-bug/a.out
>  calling dadmul
> 
> Program received signal SIGSEGV, Segmentation fault.
> 0x080494ac in dadmul_ (f=0x80489c6 <f3_>, n=0x80496cc, a=0x1, b=0xbffff1e0,
>     minpts=0xbffff190, maxpts=0xbffff194, eps=0xbffff198, wk=0x804acc0,
>     iwk=0xbffff1a4, result=0xbffff1a8, relerr=0xbffff1b0, nfnevl=0x80485a0,
>     ifail=0xbffff1bc) at radmul.F:218
> 218            LDV=.TRUE.
> Current language:  auto; currently fortran
> (gdb) bt full
> #0  0x080494ac in dadmul_ (f=0x80489c6 <f3_>, n=0x80496cc, a=0x1,
>     b=0xbffff1e0, minpts=0xbffff190, maxpts=0xbffff194, eps=0xbffff198,
>     wk=0x804acc0, iwk=0xbffff1a4, result=0xbffff1a8, relerr=0xbffff1b0,
>     nfnevl=0x80485a0, ifail=0xbffff1bc) at radmul.F:218
>         ldv = 1
>         ctr = (1.5707963317948965, 1.5707963317948965, 1.5707963317948965, 
> 59220488.137498587, 4.9406564584124654e-324, 1097792.2544701416, 
> 4.9406564584124654e-323, 2.177734375, 418816.00000020833, 2.0908637046797196, 
> 59206664.137484759, 4.9406564584124654e-324, 658511, 1123808.2544570304, 
> 446800.1874997816)
>         wth = (1.5707963217948966, 1.5707963217948966, 1.5707963217948966, 
> 59190400.000000104, 2.1777348633690252, 424546.81357409968, 
> 2.0643610954267579, 1.01939227926185e-271, -1.9962656538962094, 
> 1.538451597014671e-313, 5.4332857566081223e-315, -1.9962654113769533, 
> 3.4492312014926762e-313, 2.1219957835542876e-314, -1.9963836955659384)
>         wthl = (-1.0810961727772659, -1.0810961727772659, 
> -1.0810961727772659, 2.1219957909652723e-314, -1.9961321395603626, 
> 512246.56250182237, 5.3980032739118585e-315, 0, 1.5810100666919889e-322, 
> 2.1259117126464844, 4.3026610613595698e-308, -1.9961855453277089, 
> 512246.56250182237, 2.1777348600421544, 424688.06357420771)
>         z = (0.48970015901763064, 0.48970015901763064, 0.48970015901763064, 
> 0, 0, 0, 0, 0, 5.3984907586032971e-315, 1.3262473693532952e-315, 
> 3.7531585693359375, 0, 2.1741337776600425, 517107.5, 1123808.0313212862)
>         w = (( -0.19387288523090992, -0.55560636081898085, 
> -0.87669562566681902,---Type <return> to continue, or q <return> to quit---
>  -1.1571406797744246, -1.3969415231417974, -1.5960981557689375, 
> -1.7546105776558449, -1.8724787888025198, -1.949702789208962, 
> -1.9862825788751715, -1.9822181578011482, -1.9375095259868922, 
> -1.8521566834324035, -1.7261596301376823) ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0) ( 0.051821368693796679, 0.031499263323680332, 0.011177157953563988, 
> -0.0091449474165523539, -0.029467052786668699, -0.049789158156785043, 
> -0.070111263526901377, -0.090433368897017724, -0.11075547426713407, 
> -0.13107757963725042, -0.15139968500736675, -0.17172179037748309, 
> -0.19204389574759945, -0.21236600111771578) ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0, 0) ( 0.087118325458517498, 0.043559162729258749, 
> 0.021779581364629375, 0.010889790682314687, 0.0054448953411573436, 
> 0.0027224476705786718, 0.0013612238352893359, 0.00068061191764466795, 
> 0.00034030595882233398, 0.00017015297941116699, 8.5076489705583494e-05, 
> 4.2538244852791747e-05, 2.1269122426395874e-05, 1.0634561213197937e-05) )
>         wp = (( -1.3319615912208504, -2.2921810699588478, 
> -3.1152263374485596, -3.8010973936899859, -4.3497942386831276, 
> -4.761316872427984, -5.0356652949245539, -5.1728395061728394, 
> -5.1728395061728394, -5.0356652949245539, -4.761316872427984, 
> -4.3497942386831276, -3.8010973936899859, -3.1152263374485596) ( 0, 0, 0, 0, 
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) ( 0.044581618655692726, -0.024005486968449931, 
> -0.092592592592592587, -0.16117969821673525, -0.22976680384087791, 
> -0.29835390946502055, -0.36694101508916321, -0.43552812071330588, 
> -0.50411522633744854, -0.57270233196159126, -0.64128943758573387, 
> -0.70987654320987659, -0.7784636488340192, -0.84705075445816191) )
>         abserr = 0
> ---Type <return> to continue, or q <return> to quit---
>         ifncls = 33
>         twondm = 8
>         irgnst = 9
>         irlcls = 33
>         isbrgn = 9
>         isbrgs = 9
>         j = 4
>         rgnvol = 31.006276384211684
>         sum1 = 1
>         difmax = 2.0040597692101403
>         sum2 = 4.2895317589798072
>         sum3 = 0.038901620489071635
>         f2 = 1.4298439196599357
>         f3 = 0.012967206829690546
>         dif = 0
>         idvaxn = 134514080
>         sum4 = 0.00050444535889191929
>         j1 = 1
>         k = 4
>         sum5 = 0.086632230456685735
>         rgncmp = 0
>         rgnval = 0
>         rgnerr = 0
> ---Type <return> to continue, or q <return> to quit---
>         isbtmp = 1
>         isbtpp = -1
>         idvax0 = 134514080
> #1  0x080488d4 in MAIN__ () at test.f:26
>         a = (1e-08, 1e-08, 1e-08)
>         b = (3.1415926535897931, 3.1415926535897931, 3.1415926535897931)
>         wk = (1.5707963217948966, 1.5707963317948965, 1.5707963217948966, 
> 1.5707963317948965, 1.5707963217948966, 1.5707963317948965, 134514080, 
> 2.7941085877252063, 6.8459886166269746, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...)
>         valor = 0
>         relerr = 2.4501512384672792
>         eps = 0.001
>         c = (1, 1, 1)
>         nfnev = 1073835988
>         ifail = 3
>         iwk = 150000
> ---Type <return> to continue, or q <return> to quit---
>         minpt = 64
>         maxpt = 1000000
> #2  0x08049526 in main ()
> No symbol table info available.
> (gdb)

regards,

-- 
Kevin B. McCarty <[EMAIL PROTECTED]>   Physics Department
WWW: http://www.princeton.edu/~kmccarty/    Princeton University
GPG public key ID: 4F83C751                 Princeton, NJ 08544
        .file   "radmul.f"
        .section        .debug_abbrev,"",@progbits
.Ldebug_abbrev0:
        .section        .debug_info,"",@progbits
.Ldebug_info0:
        .section        .debug_line,"",@progbits
.Ldebug_line0:
        .text
.Ltext0:
        .section        .rodata
        .align 4
.LC0:
        .ascii  "not available on this machine - see documentation"
.LC1:
        .ascii  "D120"
.LC2:
        .ascii  "RADMUL"
        .text
.globl radmul_
        .type   radmul_, @function
radmul_:
.LFB2:
        .file 1 
"/home/kmccarty/Debian/cernlib/cernlib-2004.11.04/src/mathlib/gen/d/radmul.F"
        .loc 1 8 0
        pushl   %ebp
.LCFI0:
        movl    %esp, %ebp
.LCFI1:
        subl    $16, %esp
.LCFI2:
        .loc 1 12 0
        pushl   $49
        pushl   $4
        pushl   $6
        pushl   $.LC0
        pushl   $.LC1
        pushl   $.LC2
.LCFI3:
        call    mtlprt_
        .loc 1 14 0
        leave
        ret
.LFE2:
        .size   radmul_, .-radmul_
        .data
        .align 32
        .type   w.0, @object
        .size   w.0, 560
w.0:
        .long   -1563234553
        .long   -1077358381
        .long   -39495457
        .long   -1075722362
        .long   -65462084
        .long   -1075048989
        .long   -234354259
        .long   -1074625627
        .long   1522866268
        .long   -1074374177
        .long   943963243
        .long   -1074165346
        .long   -1971063334
        .long   -1073999134
        .long   1367721130
        .long   -1073875540
        .long   -1924585254
        .long   -1073794565
        .long   1036919402
        .long   -1073756208
        .long   1662300506
        .long   -1073760470
        .long   -48441942
        .long   -1073807351
        .long   199659354
        .long   -1073896849
        .long   -1888362901
        .long   -1074028967
        .zero   112
        .long   -1752419974
        .long   1068140628
        .long   -475691140
        .long   1067458731
        .long   -1090816518
        .long   1065804812
        .long   278868475
        .long   -1081951594
        .long   1880943865
        .long   -1080152932
        .long   -336256902
        .long   -1079411210
        .long   -806492869
        .long   -1078857009
        .long   702626362
        .long   -1078516060
        .long   -2083221703
        .long   -1078175112
        .long   1860432412
        .long   -1077885146
        .long   -1679975269
        .long   -1077714672
        .long   -925415654
        .long   -1077544198
        .long   -170856038
        .long   -1077373724
        .long   583703577
        .long   -1077203249
        .zero   112
        .long   -155581552
        .long   1068911970
        .long   -155581552
        .long   1067863394
        .long   -155581552
        .long   1066814818
        .long   -155581552
        .long   1065766242
        .long   -155581552
        .long   1064717666
        .long   -155581552
        .long   1063669090
        .long   -155581552
        .long   1062620514
        .long   -155581552
        .long   1061571938
        .long   -155581552
        .long   1060523362
        .long   -155581552
        .long   1059474786
        .long   -155581552
        .long   1058426210
        .long   -155581552
        .long   1057377634
        .long   -155581552
        .long   1056329058
        .long   -155581552
        .long   1055280482
        .align 32
        .type   wp.1, @object
        .size   wp.1, 336
wp.1:
        .long   -182639213
        .long   -1074442314
        .long   123723338
        .long   -1073588637
        .long   -919087652
        .long   -1073157125
        .long   -1072268928
        .long   -1072797531
        .long   1979573404
        .long   -1072601552
        .long   -1502354815
        .long   -1072493674
        .long   1902982766
        .long   -1072421755
        .long   -689315739
        .long   -1072385796
        .long   -689315739
        .long   -1072385796
        .long   1902982766
        .long   -1072421755
        .long   -1502354815
        .long   -1072493674
        .long   1979573404
        .long   -1072601552
        .long   -1072268928
        .long   -1072797531
        .long   -919087652
        .long   -1073157125
        .zero   112
        .long   -465435414
        .long   1067897702
        .long   -170856038
        .long   -1080519452
        .long   -318145726
        .long   -1078479835
        .long   1313824015
        .long   -1077632631
        .long   -1508246403
        .long   -1077057281
        .long   -17674763
        .long   -1076684742
        .long   718773676
        .long   -1076397066
        .long   1455222115
        .long   -1076109391
        .long   1095835277
        .long   -1075830346
        .long   -683424151
        .long   -1075686509
        .long   1832283716
        .long   -1075542671
        .long   53024288
        .long   -1075398833
        .long   -1726235141
        .long   -1075254996
        .long   789472727
        .long   -1075111158
        .section        .rodata.cst4,"aM",@progbits,4
        .align 4
.LC3:
        .long   0
        .align 4
.LC4:
        .long   1056964608
        .section        .rodata.cst8,"aM",@progbits,8
        .align 8
.LC5:
        .long   -1541404899
        .long   1071051465
        .align 8
.LC6:
        .long   325873046
        .long   1072585629
        .section        .rodata.cst4
        .align 4
.LC7:
        .long   1088421888
        .align 4
.LC8:
        .long   1094713344
        .section        .rodata.cst8
        .align 8
.LC9:
        .long   -19952919
        .long   -1075444194
        .align 8
.LC10:
        .long   1095835277
        .long   1071653302
        .align 8
.LC11:
        .long   -1349173540
        .long   1067552492
        .align 8
.LC12:
        .long   821549147
        .long   1069751929
        .align 8
.LC13:
        .long   1741509627
        .long   1065668433
        .text
.globl dadmul_
        .type   dadmul_, @function
dadmul_:
.LFB3:
        .loc 1 17 0
        pushl   %ebp
.LCFI4:
        movl    %esp, %ebp
.LCFI5:
        pushl   %edi
.LCFI6:
        pushl   %esi
.LCFI7:
        pushl   %ebx
.LCFI8:
        subl    $732, %esp
.LCFI9:
        movl    8(%ebp), %eax
        movl    %eax, -548(%ebp)
        movl    12(%ebp), %edx
        movl    %edx, -552(%ebp)
        movl    16(%ebp), %edi
        movl    20(%ebp), %ecx
        movl    %ecx, -556(%ebp)
        movl    24(%ebp), %ebx
        movl    %ebx, -560(%ebp)
        movl    28(%ebp), %eax
        movl    %eax, -564(%ebp)
        movl    32(%ebp), %edx
        movl    %edx, -568(%ebp)
        movl    36(%ebp), %ecx
        movl    %ecx, -572(%ebp)
        movl    40(%ebp), %ebx
        movl    %ebx, -576(%ebp)
        movl    44(%ebp), %eax
        movl    %eax, -580(%ebp)
        movl    48(%ebp), %edx
        movl    %edx, -584(%ebp)
        movl    56(%ebp), %ecx
        movl    %ecx, -588(%ebp)
.LBB2:
        .loc 1 92 0
        fldz
        fstl    (%eax)
        .loc 1 93 0
        fstpl   -600(%ebp)
        .loc 1 94 0
        movl    $3, (%ecx)
        .loc 1 95 0
        movl    -552(%ebp), %ebx
        movl    (%ebx), %edx
        leal    -2(%edx), %eax
        cmpl    $13, %eax
        ja      .L2
        .loc 1 96 0
        movl    -560(%ebp), %ecx
        movl    (%ecx), %eax
        movl    -564(%ebp), %ebx
        cmpl    (%ebx), %eax
        jg      .L2
        .loc 1 98 0
        movl    $0, -604(%ebp)
        .loc 1 99 0
        movl    $0, -592(%ebp)
.LBB3:
        .loc 1 100 0
        movl    %edx, %ecx
        movl    $2, %ebx
        movl    $1, %esi
        testl   %edx, %edx
        je      .L6
        movl    $1, %esi
        testl   %edx, %edx
        jns     .L12
        movl    $1, %edx
        movl    %edx, %eax
        cltd
        idivl   %ebx
        movl    %eax, %esi
        testl   %ebx, %ebx
        jns     .L6
        leal    1(%ecx), %eax
        testb   $1, %al
        je      .L6
        negl    %esi
        jmp     .L6
.L12:
        testb   $1, %cl
        je      .L14
        imull   %ebx, %esi
.L14:
        sarl    $1, %ecx
        je      .L6
        imull   %ebx, %ebx
        jmp     .L12
.L6:
.LBE3:
        pushl   %esi
        fildl   (%esp)
        leal    4(%esp), %esp
        fstpl   -616(%ebp)
        .loc 1 101 0
        movl    -552(%ebp), %edx
        movl    (%edx), %eax
        leal    3(%eax,%eax), %ecx
        movl    %ecx, -620(%ebp)
.LBB4:
        .loc 1 102 0
        movl    %eax, %ecx
        movl    $2, %ebx
        movl    $1, %esi
        testl   %eax, %eax
        je      .L16
        movl    $1, %esi
        testl   %eax, %eax
        jns     .L22
        movl    $1, %edx
        movl    %edx, %eax
        cltd
        idivl   %ebx
        movl    %eax, %esi
        testl   %ebx, %ebx
        jns     .L16
        leal    1(%ecx), %eax
        testb   $1, %al
        je      .L16
        negl    %esi
        jmp     .L16
.L22:
        testb   $1, %cl
        je      .L24
        imull   %ebx, %esi
.L24:
        sarl    $1, %ecx
        je      .L16
        imull   %ebx, %ebx
        jmp     .L22
.L16:
.LBE4:
        movl    -552(%ebp), %ecx
        movl    (%ecx), %edx
        leal    1(%edx), %eax
        imull   (%ecx), %eax
        leal    1(%esi,%eax,2), %eax
        movl    %eax, -624(%ebp)
        .loc 1 103 0
        movl    -620(%ebp), %ebx
        movl    %ebx, -628(%ebp)
        .loc 1 104 0
        movl    %ebx, -632(%ebp)
        .loc 1 105 0
        movl    -564(%ebp), %ecx
        cmpl    %eax, (%ecx)
        jl      .L2
.LBB5:
        .loc 1 106 0
        movl    $1, -636(%ebp)
        .loc 1 108 0
        movl    %edx, %eax
        decl    %eax
        js      .L142
        flds    .LC4
.L30:
        .loc 1 107 0
        movl    -636(%ebp), %ebx
        movl    -556(%ebp), %edx
        fldl    -8(%edx,%ebx,8)
        fld     %st(0)
        faddl   -8(%edi,%ebx,8)
        fmul    %st(2), %st
        fstpl   -160(%ebp,%ebx,8)
.L29:
        .loc 1 108 0
        fsubl   -8(%edi,%ebx,8)
        fmul    %st(1), %st
        fstpl   -288(%ebp,%ebx,8)
        incl    %ebx
        movl    %ebx, -636(%ebp)
        decl    %eax
        jns     .L30
.L31:
        fstp    %st(0)
.L142:
.LBE5:
        .loc 1 110 0
        fldl    -616(%ebp)
        fstpl   -648(%ebp)
.LBB6:
        .loc 1 111 0
        movl    $1, -636(%ebp)
        .loc 1 113 0
        movl    -552(%ebp), %eax
        movl    (%eax), %ecx
        decl    %ecx
        js      .L117
.L36:
        .loc 1 112 0
        fldl    -648(%ebp)
        movl    -636(%ebp), %edx
        fmull   -288(%ebp,%edx,8)
        fstpl   -648(%ebp)
.L35:
        .loc 1 113 0
        movl    %edx, %ebx
        movl    -160(%ebp,%edx,8), %eax
        movl    -156(%ebp,%edx,8), %edx
        movl    %eax, -544(%ebp,%ebx,8)
        movl    %edx, -540(%ebp,%ebx,8)
        incl    %ebx
        movl    %ebx, -636(%ebp)
        decl    %ecx
        jns     .L36
.L117:
.LBE6:
        .loc 1 114 0
        subl    $8, %esp
        leal    -536(%ebp), %eax
        pushl   %eax
        pushl   -552(%ebp)
.LCFI10:
        call    *-548(%ebp)
        fstpl   -656(%ebp)
        .loc 1 116 0
        fldz
        fstl    -672(%ebp)
        .loc 1 117 0
        fstl    -664(%ebp)
        .loc 1 118 0
        fstpl   -680(%ebp)
.LBB7:
        .loc 1 119 0
        movl    $1, -636(%ebp)
        addl    $16, %esp
        .loc 1 134 0
        movl    -552(%ebp), %eax
        movl    (%eax), %ebx
        decl    %ebx
        js      .L119
        leal    -536(%ebp), %esi
.L44:
        .loc 1 120 0
        movl    -636(%ebp), %edx
        fldl    -288(%ebp,%edx,8)
        fmull   .LC5
        fsubrl  -160(%ebp,%edx,8)
        fstpl   -544(%ebp,%edx,8)
        .loc 1 121 0
        subl    $8, %esp
        pushl   %esi
        pushl   -552(%ebp)
        call    *-548(%ebp)
        fstpl   -688(%ebp)
        .loc 1 122 0
        movl    -636(%ebp), %ecx
        fldl    -288(%ebp,%ecx,8)
        fmull   .LC5
        faddl   -160(%ebp,%ecx,8)
        fstpl   -544(%ebp,%ecx,8)
        .loc 1 123 0
        addl    $8, %esp
        pushl   %esi
        pushl   -552(%ebp)
        call    *-548(%ebp)
        faddl   -688(%ebp)
        fstpl   -688(%ebp)
        .loc 1 124 0
        movl    -636(%ebp), %eax
        fldl    -288(%ebp,%eax,8)
        fmull   .LC6
        fstpl   -416(%ebp,%eax,8)
        .loc 1 125 0
        fldl    -160(%ebp,%eax,8)
        fsubl   -416(%ebp,%eax,8)
        fstpl   -544(%ebp,%eax,8)
        .loc 1 126 0
        addl    $8, %esp
        pushl   %esi
        pushl   -552(%ebp)
        call    *-548(%ebp)
        fstpl   -696(%ebp)
        .loc 1 127 0
        movl    -636(%ebp), %edx
        fldl    -160(%ebp,%edx,8)
        faddl   -416(%ebp,%edx,8)
        fstpl   -544(%ebp,%edx,8)
        .loc 1 128 0
        addl    $8, %esp
        pushl   %esi
        pushl   -552(%ebp)
        call    *-548(%ebp)
        faddl   -696(%ebp)
        fstpl   -696(%ebp)
        .loc 1 129 0
        fldl    -672(%ebp)
        faddl   -688(%ebp)
        fstpl   -672(%ebp)
        .loc 1 130 0
        fldl    -680(%ebp)
        faddl   -696(%ebp)
        fstpl   -680(%ebp)
        .loc 1 131 0
        fldl    -688(%ebp)
        fmuls   .LC7
        fsubl   -696(%ebp)
        fldl    -656(%ebp)
        fmuls   .LC8
        fsubrp  %st, %st(1)
        fabs
        .loc 1 132 0
        addl    $16, %esp
        fldl    -664(%ebp)
        fucomp  %st(1)
        fnstsw  %ax
        testb   $5, %ah
        je      .L40
        fstl    -664(%ebp)
.L40:
        .loc 1 133 0
        fldl    -664(%ebp)
        fucompp
        fnstsw  %ax
        andb    $69, %ah
        xorb    $64, %ah
        jne     .L43
        movl    -636(%ebp), %eax
        movl    %eax, -700(%ebp)
.L43:
        .loc 1 134 0
        movl    -636(%ebp), %ecx
        movl    -160(%ebp,%ecx,8), %eax
        movl    -156(%ebp,%ecx,8), %edx
        movl    %eax, -544(%ebp,%ecx,8)
        movl    %edx, -540(%ebp,%ecx,8)
        incl    %ecx
        movl    %ecx, -636(%ebp)
        decl    %ebx
        jns     .L44
.L119:
.LBE7:
        .loc 1 136 0
        fldz
        fstpl   -712(%ebp)
.LBB8:
        .loc 1 137 0
        movl    $2, -636(%ebp)
        .loc 1 148 0
        movl    -552(%ebp), %eax
        movl    (%eax), %edx
        subl    $2, %edx
        movl    %edx, -728(%ebp)
        js      .L121
.L63:
        .loc 1 138 0
        movl    -636(%ebp), %edi
        decl    %edi
.LBB9:
        .loc 1 139 0
        movl    -552(%ebp), %ecx
        movl    (%ecx), %eax
        movl    -636(%ebp), %ebx
        .loc 1 147 0
        subl    %ebx, %eax
        movl    %eax, -732(%ebp)
        js      .L123
        leal    -536(%ebp), %eax
        movl    %eax, -740(%ebp)
.L61:
.LBB10:
        .loc 1 146 0
        movl    $1, -736(%ebp)
.L59:
        .loc 1 141 0
        xorb    $-128, -409(%ebp,%edi,8)
        .loc 1 142 0
        fldl    -160(%ebp,%edi,8)
        faddl   -416(%ebp,%edi,8)
        fstpl   -544(%ebp,%edi,8)
.LBB11:
        .loc 1 146 0
        movl    $1, %esi
.L58:
        .loc 1 144 0
        xorb    $-128, -409(%ebp,%ebx,8)
        .loc 1 145 0
        fldl    -160(%ebp,%ebx,8)
        faddl   -416(%ebp,%ebx,8)
        fstpl   -544(%ebp,%ebx,8)
.L57:
        .loc 1 146 0
        subl    $8, %esp
        pushl   -740(%ebp)
        pushl   -552(%ebp)
        call    *-548(%ebp)
        faddl   -712(%ebp)
        fstpl   -712(%ebp)
        addl    $16, %esp
        decl    %esi
        jns     .L58
.LBE11:
        decl    -736(%ebp)
        jns     .L59
.L60:
.LBE10:
        .loc 1 147 0
        movl    -160(%ebp,%ebx,8), %eax
        movl    -156(%ebp,%ebx,8), %edx
        movl    %eax, -544(%ebp,%ebx,8)
        movl    %edx, -540(%ebp,%ebx,8)
        incl    %ebx
        decl    -732(%ebp)
        jns     .L61
.L123:
.L62:
.LBE9:
        .loc 1 148 0
        movl    -160(%ebp,%edi,8), %eax
        movl    -156(%ebp,%edi,8), %edx
        movl    %eax, -544(%ebp,%edi,8)
        movl    %edx, -540(%ebp,%edi,8)
        incl    -636(%ebp)
        decl    -728(%ebp)
        jns     .L63
.L121:
.LBE8:
        .loc 1 150 0
        fldz
        fstpl   -720(%ebp)
.LBB12:
        .loc 1 151 0
        movl    $1, -636(%ebp)
        .loc 1 153 0
        movl    -552(%ebp), %edx
        movl    (%edx), %eax
        decl    %eax
        js      .L69
        fldl    .LC9
.L68:
        .loc 1 152 0
        movl    -636(%ebp), %ecx
        fldl    -288(%ebp,%ecx,8)
        fmul    %st(1), %st
        fstpl   -416(%ebp,%ecx,8)
.L67:
        .loc 1 153 0
        fldl    -160(%ebp,%ecx,8)
        faddl   -416(%ebp,%ecx,8)
        fstpl   -544(%ebp,%ecx,8)
        incl    %ecx
        movl    %ecx, -636(%ebp)
        decl    %eax
        jns     .L68
        fstp    %st(0)
        jmp     .L69
.L143:
        fstp    %st(0)
.L69:
.LBE12:
        .loc 1 154 0
        subl    $8, %esp
        leal    -536(%ebp), %eax
        pushl   %eax
        pushl   -552(%ebp)
        call    *-548(%ebp)
        faddl   -720(%ebp)
        fstpl   -720(%ebp)
.LBB13:
        .loc 1 155 0
        movl    $1, -636(%ebp)
        addl    $16, %esp
        .loc 1 159 0
        movl    -552(%ebp), %ebx
        movl    (%ebx), %ecx
        decl    %ecx
        js      .L130
        flds    .LC3
.L76:
        .loc 1 156 0
        movl    -636(%ebp), %eax
        fldl    -416(%ebp,%eax,8)
        fchs
        fstl    -416(%ebp,%eax,8)
        .loc 1 157 0
        fldl    -160(%ebp,%eax,8)
        fadd    %st(1), %st
        fstpl   -544(%ebp,%eax,8)
        .loc 1 158 0
        fucomp  %st(1)
        fnstsw  %ax
        testb   $69, %ah
        je      .L143
.L75:
        .loc 1 159 0
        incl    -636(%ebp)
        decl    %ecx
        jns     .L76
        fstp    %st(0)
.L130:
.LBE13:
        .loc 1 161 0
        movl    -552(%ebp), %edx
        movl    (%edx), %eax
        fldl    -656(%ebp)
        fmull   wp.1-16(,%eax,8)
        fldl    -672(%ebp)
        fmull   .LC10
        faddp   %st, %st(1)
        fldl    -680(%ebp)
        fmull   wp.1+208(,%eax,8)
        faddp   %st, %st(1)
        fldl    -712(%ebp)
        fmull   .LC11
        faddp   %st, %st(1)
        fmull   -648(%ebp)
        .loc 1 162 0
        fldl    -656(%ebp)
        fmull   w.0-16(,%eax,8)
        fldl    -672(%ebp)
        fmull   .LC12
        faddp   %st, %st(1)
        fldl    -680(%ebp)
        fmull   w.0+208(,%eax,8)
        faddp   %st, %st(1)
        fldl    -712(%ebp)
        fmull   .LC13
        faddp   %st, %st(1)
        fldl    -720(%ebp)
        fmull   w.0+432(,%eax,8)
        faddp   %st, %st(1)
        .loc 1 163 0
        fmull   -648(%ebp)
        .loc 1 164 0
        fld     %st(0)
        fsubp   %st, %st(2)
        fxch    %st(1)
        fabs
        .loc 1 165 0
        fld     %st(1)
        movl    -580(%ebp), %ecx
        faddl   (%ecx)
        fstpl   (%ecx)
        .loc 1 166 0
        fldl    -600(%ebp)
        fadd    %st(1), %st
        fstpl   -600(%ebp)
        .loc 1 167 0
        movl    -624(%ebp), %eax
        addl    %eax, -604(%ebp)
        .loc 1 169 0
        cmpl    $0, -592(%ebp)
        je      .L91
.L78:
        .loc 1 170 0
        movl    -628(%ebp), %edi
        addl    %edi, %edi
        .loc 1 171 0
        cmpl    -632(%ebp), %edi
        jg      .L80
        .loc 1 172 0
        jge     .L81
        .loc 1 173 0
        movl    -620(%ebp), %edx
        leal    (%edi,%edx), %ecx
        .loc 1 174 0
        movl    -572(%ebp), %ebx
        fldl    -8(%ebx,%edi,8)
        fldl    -8(%ebx,%ecx,8)
        fucompp
        fnstsw  %ax
        testb   $69, %ah
        jne     .L81
        movl    %ecx, %edi
.L81:
        .loc 1 176 0
        movl    -572(%ebp), %edx
        fldl    -8(%edx,%edi,8)
        fxch    %st(1)
        fucom   %st(1)
        fnstsw  %ax
        fstp    %st(1)
        testb   $5, %ah
        je      .L80
.LBB14:
        .loc 1 177 0
        movl    $0, %ebx
        .loc 1 178 0
        movl    -620(%ebp), %esi
        decl    %esi
        js      .L132
.L90:
.L89:
        movl    -628(%ebp), %ecx
        subl    %ebx, %ecx
        movl    %edi, %eax
        subl    %ebx, %eax
        movl    -572(%ebp), %edx
        fldl    -8(%edx,%eax,8)
        fstpl   -8(%edx,%ecx,8)
        incl    %ebx
        decl    %esi
        jns     .L90
.L132:
.LBE14:
        .loc 1 179 0
        movl    %edi, -628(%ebp)
        .loc 1 180 0
        jmp     .L78
.L91:
        .loc 1 182 0
        movl    -620(%ebp), %edx
        addl    %edx, %edx
        movl    -628(%ebp), %eax
        movl    %edx, %ebx
        cltd
        idivl   %ebx
        movl    -620(%ebp), %edi
        imull   %eax, %edi
        .loc 1 183 0
        cmpl    -620(%ebp), %edi
        jl      .L80
        movl    -572(%ebp), %eax
        fldl    -8(%eax,%edi,8)
        fxch    %st(1)
        fucom   %st(1)
        fnstsw  %ax
        fstp    %st(1)
        testb   $69, %ah
        jne     .L80
.LBB15:
        .loc 1 184 0
        movl    $0, %ebx
        .loc 1 185 0
        movl    -620(%ebp), %esi
        decl    %esi
        js      .L134
.L98:
.L97:
        movl    -628(%ebp), %ecx
        subl    %ebx, %ecx
        movl    %edi, %eax
        subl    %ebx, %eax
        movl    -572(%ebp), %edx
        fldl    -8(%edx,%eax,8)
        fstpl   -8(%edx,%ecx,8)
        incl    %ebx
        decl    %esi
        jns     .L98
.L134:
.LBE15:
        .loc 1 186 0
        movl    %edi, -628(%ebp)
        .loc 1 187 0
        jmp     .L91
.L80:
        .loc 1 190 0
        movl    -628(%ebp), %ecx
        movl    -572(%ebp), %ebx
        fstpl   -8(%ebx,%ecx,8)
        .loc 1 191 0
        fstpl   -16(%ebx,%ecx,8)
        .loc 1 192 0
        fildl   -700(%ebp)
        fstpl   -24(%ebx,%ecx,8)
.LBB16:
        .loc 1 193 0
        movl    $1, -636(%ebp)
        .loc 1 196 0
        movl    -552(%ebp), %eax
        movl    (%eax), %ecx
        decl    %ecx
        js      .L136
.L103:
        .loc 1 194 0
        movl    -636(%ebp), %eax
        addl    %eax, %eax
        movl    -628(%ebp), %edx
        subl    %eax, %edx
        leal    -2(%edx), %edi
        .loc 1 195 0
        movl    -636(%ebp), %ebx
        movl    -160(%ebp,%ebx,8), %eax
        movl    -156(%ebp,%ebx,8), %edx
        movl    -572(%ebp), %ebx
        movl    %eax, (%ebx,%edi,8)
        movl    %edx, 4(%ebx,%edi,8)
.L102:
        .loc 1 196 0
        movl    -636(%ebp), %ebx
        movl    -288(%ebp,%ebx,8), %eax
        movl    -284(%ebp,%ebx,8), %edx
        movl    -572(%ebp), %ebx
        movl    %eax, -8(%ebx,%edi,8)
        movl    %edx, -4(%ebx,%edi,8)
        incl    -636(%ebp)
        decl    %ecx
        jns     .L103
.L136:
.LBE16:
        .loc 1 197 0
        cmpl    $0, -592(%ebp)
        je      .L104
        .loc 1 198 0
        movl    $0, -592(%ebp)
        .loc 1 199 0
        movl    -724(%ebp), %eax
        fldl    -288(%ebp,%eax,8)
        fadd    %st(0), %st
        faddl   -160(%ebp,%eax,8)
        fstpl   -160(%ebp,%eax,8)
        .loc 1 200 0
        movl    -620(%ebp), %edx
        addl    %edx, -632(%ebp)
        .loc 1 201 0
        movl    -632(%ebp), %ecx
        movl    %ecx, -628(%ebp)
        .loc 1 202 0
        jmp     .L142
.L104:
        .loc 1 204 0
        movl    -580(%ebp), %ebx
        fldl    (%ebx)
        fabs
        fdivrl  -600(%ebp)
        movl    -584(%ebp), %eax
        fstpl   (%eax)
        .loc 1 205 0
        movl    -632(%ebp), %eax
        addl    -620(%ebp), %eax
        movl    -576(%ebp), %edx
        cmpl    (%edx), %eax
        jle     .L105
        movl    -588(%ebp), %ecx
        movl    $2, (%ecx)
.L105:
        .loc 1 206 0
        movl    -624(%ebp), %ebx
        movl    -604(%ebp), %edx
        leal    (%edx,%ebx,2), %eax
        movl    -564(%ebp), %ecx
        cmpl    (%ecx), %eax
        jle     .L106
        movl    -588(%ebp), %ebx
        movl    $1, (%ebx)
.L106:
        .loc 1 207 0
        movl    -584(%ebp), %eax
        fldl    (%eax)
        movl    -568(%ebp), %edx
        fldl    (%edx)
        fucompp
        fnstsw  %ax
        testb   $69, %ah
        jne     .L107
        movl    -604(%ebp), %ecx
        movl    -560(%ebp), %edx
        cmpl    %ecx, (%edx)
        jg      .L107
        movl    -588(%ebp), %ebx
        movl    $0, (%ebx)
.L107:
        .loc 1 208 0
        movl    -588(%ebp), %eax
        cmpl    $3, (%eax)
        jne     .L109
        .loc 1 209 0
        movl    $1, -592(%ebp)
        .loc 1 210 0
        movl    -620(%ebp), %edx
        movl    %edx, -628(%ebp)
        .loc 1 211 0
        fldl    -600(%ebp)
        movl    -572(%ebp), %ecx
        fsubl   -8(%ecx,%edx,8)
        fstpl   -600(%ebp)
        .loc 1 212 0
        movl    -580(%ebp), %eax
        fldl    (%eax)
        fsubl   -16(%ecx,%edx,8)
        fstpl   (%eax)
        .loc 1 213 0
        fldl    -24(%ecx,%edx,8)
        fnstcw  -538(%ebp)
        movw    -538(%ebp), %ax
        movb    $12, %ah
        movw    %ax, -540(%ebp)
        fldcw   -540(%ebp)
        fistpl  -724(%ebp)
        fldcw   -538(%ebp)
.LBB17:
        .loc 1 214 0
        movl    $1, -636(%ebp)
        .loc 1 217 0
        movl    -552(%ebp), %edx
        movl    (%edx), %ecx
        decl    %ecx
        js      .L138
.L114:
        .loc 1 215 0
        movl    -636(%ebp), %eax
        addl    %eax, %eax
        movl    -628(%ebp), %ebx
        subl    %eax, %ebx
        leal    -2(%ebx), %edi
        .loc 1 216 0
        movl    -572(%ebp), %ebx
        movl    (%ebx,%edi,8), %eax
        movl    4(%ebx,%edi,8), %edx
        movl    -636(%ebp), %ebx
        movl    %eax, -160(%ebp,%ebx,8)
        movl    %edx, -156(%ebp,%ebx,8)
.L113:
        .loc 1 217 0
        movl    -572(%ebp), %ebx
        movl    -8(%ebx,%edi,8), %eax
        movl    -4(%ebx,%edi,8), %edx
        movl    -636(%ebp), %ebx
        movl    %eax, -288(%ebp,%ebx,8)
        movl    %edx, -284(%ebp,%ebx,8)
        incl    %ebx
        movl    %ebx, -636(%ebp)
        decl    %ecx
        jns     .L114
.L138:
.LBE17:
        .loc 1 218 0
        flds    .LC4
        movl    -724(%ebp), %eax
        fmull   -288(%ebp,%eax,8)
        fstpl   -288(%ebp,%eax,8)
        .loc 1 219 0
        fldl    -160(%ebp,%eax,8)
        fsubl   -288(%ebp,%eax,8)
        fstpl   -160(%ebp,%eax,8)
        .loc 1 220 0
        jmp     .L142
.L109:
        .loc 1 222 0
        movl    52(%ebp), %eax
        movl    -604(%ebp), %edx
        movl    %edx, (%eax)
.L2:
.LBE2:
        .loc 1 223 0
        leal    -12(%ebp), %esp
        popl    %ebx
        popl    %esi
        popl    %edi
        popl    %ebp
        ret
.LFE3:
        .size   dadmul_, .-dadmul_
        .section        .debug_frame,"",@progbits
.Lframe0:
        .long   .LECIE0-.LSCIE0
.LSCIE0:
        .long   0xffffffff
        .byte   0x1
        .string ""
        .uleb128 0x1
        .sleb128 -4
        .byte   0x8
        .byte   0xc
        .uleb128 0x4
        .uleb128 0x4
        .byte   0x88
        .uleb128 0x1
        .align 4
.LECIE0:
.LSFDE0:
        .long   .LEFDE0-.LASFDE0
.LASFDE0:
        .long   .Lframe0
        .long   .LFB2
        .long   .LFE2-.LFB2
        .byte   0x4
        .long   .LCFI0-.LFB2
        .byte   0xe
        .uleb128 0x8
        .byte   0x85
        .uleb128 0x2
        .byte   0x4
        .long   .LCFI1-.LCFI0
        .byte   0xd
        .uleb128 0x5
        .byte   0x4
        .long   .LCFI3-.LCFI1
        .byte   0x2e
        .uleb128 0x20
        .align 4
.LEFDE0:
.LSFDE2:
        .long   .LEFDE2-.LASFDE2
.LASFDE2:
        .long   .Lframe0
        .long   .LFB3
        .long   .LFE3-.LFB3
        .byte   0x4
        .long   .LCFI4-.LFB3
        .byte   0xe
        .uleb128 0x8
        .byte   0x85
        .uleb128 0x2
        .byte   0x4
        .long   .LCFI5-.LCFI4
        .byte   0xd
        .uleb128 0x5
        .byte   0x4
        .long   .LCFI9-.LCFI5
        .byte   0x83
        .uleb128 0x5
        .byte   0x86
        .uleb128 0x4
        .byte   0x87
        .uleb128 0x3
        .byte   0x4
        .long   .LCFI10-.LCFI9
        .byte   0x2e
        .uleb128 0x10
        .align 4
.LEFDE2:
        .text
.Letext0:
        .section        .debug_info
        .long   0x677
        .value  0x2
        .long   .Ldebug_abbrev0
        .byte   0x4
        .uleb128 0x1
        .long   .Ldebug_line0
        .long   .Letext0
        .long   .Ltext0
        .long   .LASF53
        .byte   0x7
        .long   .LASF54
        .long   .LASF55
        .uleb128 0x2
        .long   0xdc
        .byte   0x1
        .long   .LASF8
        .byte   0x1
        .byte   0x8
        .long   .LFB2
        .long   .LFE2
        .byte   0x1
        .byte   0x55
        .uleb128 0x3
        .string "f"
        .long   0xdc
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 8
        .uleb128 0x3
        .string "n"
        .long   0xee
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 12
        .uleb128 0x3
        .string "a"
        .long   0x100
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 16
        .uleb128 0x3
        .string "b"
        .long   0x105
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 20
        .uleb128 0x4
        .long   .LASF0
        .long   0x10a
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 24
        .uleb128 0x4
        .long   .LASF1
        .long   0x10f
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 28
        .uleb128 0x3
        .string "eps"
        .long   0x114
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 32
        .uleb128 0x3
        .string "wk"
        .long   0x119
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 36
        .uleb128 0x3
        .string "iwk"
        .long   0x11e
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 40
        .uleb128 0x4
        .long   .LASF2
        .long   0x123
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 44
        .uleb128 0x4
        .long   .LASF3
        .long   0x128
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 48
        .uleb128 0x4
        .long   .LASF4
        .long   0x12d
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 52
        .uleb128 0x4
        .long   .LASF5
        .long   0x132
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 56
        .byte   0x0
        .uleb128 0x5
        .long   0xe1
        .uleb128 0x6
        .byte   0x4
        .long   0xe7
        .uleb128 0x7
        .long   .LASF6
        .byte   0x4
        .byte   0x4
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x6
        .byte   0x4
        .long   0xf9
        .uleb128 0x7
        .long   .LASF7
        .byte   0x4
        .byte   0x5
        .uleb128 0x5
        .long   0xe1
        .uleb128 0x5
        .long   0xe1
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x5
        .long   0xe1
        .uleb128 0x5
        .long   0xe1
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x5
        .long   0xe1
        .uleb128 0x5
        .long   0xe1
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x2
        .long   0x59b
        .byte   0x1
        .long   .LASF9
        .byte   0x1
        .byte   0x11
        .long   .LFB3
        .long   .LFE3
        .byte   0x1
        .byte   0x55
        .uleb128 0x3
        .string "f"
        .long   0x5ad
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -548
        .uleb128 0x3
        .string "n"
        .long   0x5b8
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -552
        .uleb128 0x3
        .string "a"
        .long   0x5cc
        .byte   0x1
        .byte   0x1
        .byte   0x57
        .uleb128 0x3
        .string "b"
        .long   0x5e6
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -556
        .uleb128 0x4
        .long   .LASF0
        .long   0x5f1
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -560
        .uleb128 0x4
        .long   .LASF1
        .long   0x5f6
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -564
        .uleb128 0x3
        .string "eps"
        .long   0x5fb
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -568
        .uleb128 0x3
        .string "wk"
        .long   0x615
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -572
        .uleb128 0x3
        .string "iwk"
        .long   0x620
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -576
        .uleb128 0x4
        .long   .LASF2
        .long   0x625
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -580
        .uleb128 0x4
        .long   .LASF3
        .long   0x62a
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -584
        .uleb128 0x4
        .long   .LASF4
        .long   0x62f
        .byte   0x1
        .byte   0x1
        .byte   0x50
        .uleb128 0x4
        .long   .LASF5
        .long   0x634
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -588
        .uleb128 0x8
        .string "ldv"
        .byte   0x1
        .byte   0x24
        .long   0x639
        .byte   0x3
        .byte   0x91
        .sleb128 -592
        .uleb128 0x8
        .string "ctr"
        .byte   0x1
        .byte   0x27
        .long   0x640
        .byte   0x3
        .byte   0x91
        .sleb128 -152
        .uleb128 0x8
        .string "wth"
        .byte   0x1
        .byte   0x27
        .long   0x640
        .byte   0x3
        .byte   0x91
        .sleb128 -280
        .uleb128 0x9
        .long   .LASF10
        .byte   0x1
        .byte   0x27
        .long   0x640
        .byte   0x3
        .byte   0x91
        .sleb128 -408
        .uleb128 0x8
        .string "z"
        .byte   0x1
        .byte   0x27
        .long   0x640
        .byte   0x3
        .byte   0x91
        .sleb128 -536
        .uleb128 0x8
        .string "w"
        .byte   0x1
        .byte   0x28
        .long   0x650
        .byte   0x5
        .byte   0x3
        .long   w.0
        .uleb128 0x8
        .string "wp"
        .byte   0x1
        .byte   0x28
        .long   0x667
        .byte   0x5
        .byte   0x3
        .long   wp.1
        .uleb128 0x9
        .long   .LASF11
        .byte   0x1
        .byte   0x5d
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -600
        .uleb128 0x9
        .long   .LASF12
        .byte   0x1
        .byte   0x62
        .long   0xf9
        .byte   0x3
        .byte   0x91
        .sleb128 -604
        .uleb128 0x9
        .long   .LASF13
        .byte   0x1
        .byte   0x64
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -616
        .uleb128 0x9
        .long   .LASF14
        .byte   0x1
        .byte   0x65
        .long   0xf9
        .byte   0x3
        .byte   0x91
        .sleb128 -620
        .uleb128 0x9
        .long   .LASF15
        .byte   0x1
        .byte   0x66
        .long   0xf9
        .byte   0x3
        .byte   0x91
        .sleb128 -624
        .uleb128 0x9
        .long   .LASF16
        .byte   0x1
        .byte   0x67
        .long   0xf9
        .byte   0x3
        .byte   0x91
        .sleb128 -628
        .uleb128 0x9
        .long   .LASF17
        .byte   0x1
        .byte   0x68
        .long   0xf9
        .byte   0x3
        .byte   0x91
        .sleb128 -632
        .uleb128 0x8
        .string "j"
        .byte   0x1
        .byte   0x6a
        .long   0xf9
        .byte   0x3
        .byte   0x91
        .sleb128 -636
        .uleb128 0x9
        .long   .LASF18
        .byte   0x1
        .byte   0x6e
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -648
        .uleb128 0x9
        .long   .LASF19
        .byte   0x1
        .byte   0x72
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -656
        .uleb128 0x9
        .long   .LASF20
        .byte   0x1
        .byte   0x74
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -664
        .uleb128 0x9
        .long   .LASF21
        .byte   0x1
        .byte   0x75
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -672
        .uleb128 0x9
        .long   .LASF22
        .byte   0x1
        .byte   0x76
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -680
        .uleb128 0x8
        .string "f2"
        .byte   0x1
        .byte   0x79
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -688
        .uleb128 0x8
        .string "f3"
        .byte   0x1
        .byte   0x7e
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -696
        .uleb128 0x8
        .string "dif"
        .byte   0x1
        .byte   0x83
        .long   0x5a6
        .byte   0x1
        .byte   0x5c
        .uleb128 0x9
        .long   .LASF23
        .byte   0x1
        .byte   0x85
        .long   0xf9
        .byte   0x3
        .byte   0x91
        .sleb128 -700
        .uleb128 0x9
        .long   .LASF24
        .byte   0x1
        .byte   0x88
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -712
        .uleb128 0x8
        .string "j1"
        .byte   0x1
        .byte   0x8a
        .long   0xf9
        .byte   0x1
        .byte   0x57
        .uleb128 0x8
        .string "k"
        .byte   0x1
        .byte   0x8b
        .long   0xf9
        .byte   0x1
        .byte   0x53
        .uleb128 0xa
        .string "l"
        .byte   0x1
        .byte   0x8c
        .long   0xf9
        .uleb128 0xa
        .string "m"
        .byte   0x1
        .byte   0x8f
        .long   0xf9
        .uleb128 0x9
        .long   .LASF25
        .byte   0x1
        .byte   0x96
        .long   0x5a6
        .byte   0x3
        .byte   0x91
        .sleb128 -720
        .uleb128 0x9
        .long   .LASF26
        .byte   0x1
        .byte   0xa1
        .long   0x5a6
        .byte   0x1
        .byte   0x5c
        .uleb128 0x9
        .long   .LASF27
        .byte   0x1
        .byte   0xa2
        .long   0x5a6
        .byte   0x1
        .byte   0x5d
        .uleb128 0x9
        .long   .LASF28
        .byte   0x1
        .byte   0xa4
        .long   0x5a6
        .byte   0x1
        .byte   0x5e
        .uleb128 0x9
        .long   .LASF29
        .byte   0x1
        .byte   0xaa
        .long   0xf9
        .byte   0x1
        .byte   0x57
        .uleb128 0x9
        .long   .LASF30
        .byte   0x1
        .byte   0xad
        .long   0xf9
        .byte   0x1
        .byte   0x51
        .uleb128 0x9
        .long   .LASF31
        .byte   0x1
        .byte   0xc7
        .long   0xf9
        .byte   0x3
        .byte   0x91
        .sleb128 -724
        .uleb128 0xb
        .long   0x420
        .long   .LBB3
        .long   .LBE3
        .uleb128 0xc
        .long   .LASF32
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x51
        .uleb128 0xc
        .long   .LASF33
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x53
        .uleb128 0xc
        .long   .LASF34
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x56
        .byte   0x0
        .uleb128 0xb
        .long   0x452
        .long   .LBB4
        .long   .LBE4
        .uleb128 0xc
        .long   .LASF35
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x51
        .uleb128 0xc
        .long   .LASF36
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x53
        .uleb128 0xc
        .long   .LASF37
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x56
        .byte   0x0
        .uleb128 0xb
        .long   0x46c
        .long   .LBB5
        .long   .LBE5
        .uleb128 0xc
        .long   .LASF38
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x50
        .byte   0x0
        .uleb128 0xb
        .long   0x486
        .long   .LBB6
        .long   .LBE6
        .uleb128 0xc
        .long   .LASF39
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x51
        .byte   0x0
        .uleb128 0xb
        .long   0x4a0
        .long   .LBB7
        .long   .LBE7
        .uleb128 0xc
        .long   .LASF40
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x53
        .byte   0x0
        .uleb128 0xb
        .long   0x502
        .long   .LBB8
        .long   .LBE8
        .uleb128 0xc
        .long   .LASF41
        .long   0xf9
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -728
        .uleb128 0xd
        .long   .LBB9
        .long   .LBE9
        .uleb128 0xc
        .long   .LASF42
        .long   0xf9
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -732
        .uleb128 0xd
        .long   .LBB10
        .long   .LBE10
        .uleb128 0xc
        .long   .LASF43
        .long   0xf9
        .byte   0x1
        .byte   0x3
        .byte   0x91
        .sleb128 -736
        .uleb128 0xd
        .long   .LBB11
        .long   .LBE11
        .uleb128 0xc
        .long   .LASF44
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x56
        .byte   0x0
        .byte   0x0
        .byte   0x0
        .byte   0x0
        .uleb128 0xb
        .long   0x51c
        .long   .LBB12
        .long   .LBE12
        .uleb128 0xc
        .long   .LASF45
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x50
        .byte   0x0
        .uleb128 0xb
        .long   0x536
        .long   .LBB13
        .long   .LBE13
        .uleb128 0xc
        .long   .LASF46
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x51
        .byte   0x0
        .uleb128 0xb
        .long   0x550
        .long   .LBB14
        .long   .LBE14
        .uleb128 0xc
        .long   .LASF47
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x56
        .byte   0x0
        .uleb128 0xb
        .long   0x56a
        .long   .LBB15
        .long   .LBE15
        .uleb128 0xc
        .long   .LASF48
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x56
        .byte   0x0
        .uleb128 0xb
        .long   0x584
        .long   .LBB16
        .long   .LBE16
        .uleb128 0xc
        .long   .LASF49
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x51
        .byte   0x0
        .uleb128 0xd
        .long   .LBB17
        .long   .LBE17
        .uleb128 0xc
        .long   .LASF50
        .long   0xf9
        .byte   0x1
        .byte   0x1
        .byte   0x51
        .byte   0x0
        .byte   0x0
        .uleb128 0xe
        .long   0x5a6
        .long   0x5a6
        .uleb128 0xf
        .byte   0x0
        .uleb128 0x7
        .long   .LASF51
        .byte   0x8
        .byte   0x4
        .uleb128 0x5
        .long   0x5b2
        .uleb128 0x6
        .byte   0x4
        .long   0x59b
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x10
        .long   0x5cc
        .long   0x5a6
        .uleb128 0x11
        .long   0xf9
        .byte   0x0
        .uleb128 0x5
        .long   0x5d1
        .uleb128 0x6
        .byte   0x4
        .long   0x5bd
        .uleb128 0x10
        .long   0x5e6
        .long   0x5a6
        .uleb128 0x11
        .long   0xf9
        .byte   0x0
        .uleb128 0x5
        .long   0x5eb
        .uleb128 0x6
        .byte   0x4
        .long   0x5d7
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x5
        .long   0x600
        .uleb128 0x6
        .byte   0x4
        .long   0x5a6
        .uleb128 0x10
        .long   0x615
        .long   0x5a6
        .uleb128 0x11
        .long   0xf9
        .byte   0x0
        .uleb128 0x5
        .long   0x61a
        .uleb128 0x6
        .byte   0x4
        .long   0x606
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x5
        .long   0x600
        .uleb128 0x5
        .long   0x600
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x5
        .long   0xf3
        .uleb128 0x7
        .long   .LASF52
        .byte   0x4
        .byte   0x5
        .uleb128 0x10
        .long   0x650
        .long   0x5a6
        .uleb128 0x12
        .long   0xf9
        .byte   0xf
        .byte   0x0
        .uleb128 0x10
        .long   0x667
        .long   0x5a6
        .uleb128 0x12
        .long   0xf9
        .byte   0x5
        .uleb128 0x13
        .long   0xf9
        .byte   0x2
        .byte   0xf
        .byte   0x0
        .uleb128 0x14
        .long   0x5a6
        .uleb128 0x12
        .long   0xf9
        .byte   0x3
        .uleb128 0x13
        .long   0xf9
        .byte   0x2
        .byte   0xf
        .byte   0x0
        .byte   0x0
        .section        .debug_abbrev
        .uleb128 0x1
        .uleb128 0x11
        .byte   0x1
        .uleb128 0x10
        .uleb128 0x6
        .uleb128 0x12
        .uleb128 0x1
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x25
        .uleb128 0xe
        .uleb128 0x13
        .uleb128 0xb
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x1b
        .uleb128 0xe
        .byte   0x0
        .byte   0x0
        .uleb128 0x2
        .uleb128 0x2e
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x3f
        .uleb128 0xc
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x12
        .uleb128 0x1
        .uleb128 0x40
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x5
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x34
        .uleb128 0xc
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x4
        .uleb128 0x5
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x34
        .uleb128 0xc
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x5
        .uleb128 0x26
        .byte   0x0
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0x6
        .uleb128 0xf
        .byte   0x0
        .uleb128 0xb
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0x7
        .uleb128 0x24
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0xb
        .uleb128 0xb
        .uleb128 0x3e
        .uleb128 0xb
        .byte   0x0
        .byte   0x0
        .uleb128 0x8
        .uleb128 0x34
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x9
        .uleb128 0x34
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0xa
        .uleb128 0x34
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0xb
        .uleb128 0xb
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x12
        .uleb128 0x1
        .byte   0x0
        .byte   0x0
        .uleb128 0xc
        .uleb128 0x34
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x34
        .uleb128 0xc
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0xd
        .uleb128 0xb
        .byte   0x1
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x12
        .uleb128 0x1
        .byte   0x0
        .byte   0x0
        .uleb128 0xe
        .uleb128 0x15
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0xf
        .uleb128 0x18
        .byte   0x0
        .byte   0x0
        .byte   0x0
        .uleb128 0x10
        .uleb128 0x1
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0x11
        .uleb128 0x21
        .byte   0x0
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0x12
        .uleb128 0x21
        .byte   0x0
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x2f
        .uleb128 0xb
        .byte   0x0
        .byte   0x0
        .uleb128 0x13
        .uleb128 0x21
        .byte   0x0
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x22
        .uleb128 0xb
        .uleb128 0x2f
        .uleb128 0xb
        .byte   0x0
        .byte   0x0
        .uleb128 0x14
        .uleb128 0x1
        .byte   0x1
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .byte   0x0
        .section        .debug_pubnames,"",@progbits
        .long   0x26
        .value  0x2
        .long   .Ldebug_info0
        .long   0x67b
        .long   0x25
        .string "radmul_"
        .long   0x137
        .string "dadmul_"
        .long   0x0
        .section        .debug_aranges,"",@progbits
        .long   0x1c
        .value  0x2
        .long   .Ldebug_info0
        .byte   0x4
        .byte   0x0
        .value  0x0
        .value  0x0
        .long   .Ltext0
        .long   .Letext0-.Ltext0
        .long   0x0
        .long   0x0
        .section        .debug_str,"MS",@progbits,1
.LASF5:
        .string "ifail"
.LASF44:
        .string "__g77_do_16"
.LASF45:
        .string "__g77_do_17"
.LASF46:
        .string "__g77_do_18"
.LASF13:
        .string "twondm"
.LASF4:
        .string "nfnevl"
.LASF19:
        .string "sum1"
.LASF21:
        .string "sum2"
.LASF22:
        .string "sum3"
.LASF24:
        .string "sum4"
.LASF11:
        .string "abserr"
.LASF15:
        .string "irlcls"
.LASF51:
        .string "double precision"
.LASF54:
        .string "radmul.f"
.LASF34:
        .string "__g77_power_res_4"
.LASF26:
        .string "rgncmp"
.LASF27:
        .string "rgnval"
.LASF30:
        .string "isbtpp"
.LASF39:
        .string "__g77_do_10"
.LASF40:
        .string "__g77_do_11"
.LASF41:
        .string "__g77_do_13"
.LASF42:
        .string "__g77_do_14"
.LASF43:
        .string "__g77_do_15"
.LASF37:
        .string "__g77_power_res_7"
.LASF38:
        .string "__g77_do_9"
.LASF9:
        .string "dadmul_"
.LASF25:
        .string "sum5"
.LASF52:
        .string "logical"
.LASF0:
        .string "minpts"
.LASF10:
        .string "wthl"
.LASF55:
        .string "/home/kmccarty/test-g77-bug"
.LASF23:
        .string "idvaxn"
.LASF35:
        .string "__g77_power_r_5"
.LASF36:
        .string "__g77_power_l_6"
.LASF2:
        .string "result"
.LASF32:
        .string "__g77_power_r_2"
.LASF28:
        .string "rgnerr"
.LASF6:
        .string "real"
.LASF1:
        .string "maxpts"
.LASF50:
        .string "__g77_do_34"
.LASF14:
        .string "irgnst"
.LASF3:
        .string "relerr"
.LASF12:
        .string "ifncls"
.LASF8:
        .string "radmul_"
.LASF53:
        .string "GNU F77 3.4.4 20041218 (prerelease) (Debian 3.4.3-7)"
.LASF7:
        .string "integer"
.LASF16:
        .string "isbrgn"
.LASF31:
        .string "idvax0"
.LASF48:
        .string "__g77_do_27"
.LASF18:
        .string "rgnvol"
.LASF17:
        .string "isbrgs"
.LASF47:
        .string "__g77_do_25"
.LASF20:
        .string "difmax"
.LASF49:
        .string "__g77_do_28"
.LASF29:
        .string "isbtmp"
.LASF33:
        .string "__g77_power_l_3"
        .section        .note.GNU-stack,"",@progbits
        .ident  "GCC: (GNU) 3.4.4 20041218 (prerelease) (Debian 3.4.3-7)"
        .file   "test.f"
        .section        .debug_abbrev,"",@progbits
.Ldebug_abbrev0:
        .section        .debug_info,"",@progbits
.Ldebug_info0:
        .section        .debug_line,"",@progbits
.Ldebug_line0:
        .text
.Ltext0:
        .local  wk.0
        .comm   wk.0,1200000,32
        .data
        .align 4
        .type   __g77_cilist_0.1, @object
        .size   __g77_cilist_0.1, 20
__g77_cilist_0.1:
        .long   0
        .long   6
        .long   0
        .long   0
        .long   0
        .align 4
        .type   __g77_cilist_1.2, @object
        .size   __g77_cilist_1.2, 20
__g77_cilist_1.2:
        .long   0
        .long   6
        .long   0
        .long   0
        .long   0
        .section        .rodata
.LC4:
        .ascii  "calling dadmul"
.LC8:
        .ascii  "I="
.LC10:
        .ascii  "+-"
.LC11:
        .ascii  "%"
.LC12:
        .ascii  " evals"
.LC13:
        .ascii  " error       "
.LC14:
        .section        .rodata.cst4,"aM",@progbits,4
        .align 4
.LC0:
        .long   -1082130432
        .align 4
.LC5:
        .long   1
        .align 4
.LC6:
        .long   9
        .align 4
.LC7:
        .long   3
        .align 4
.LC9:
        .long   5
        .text
.globl MAIN__
        .type   MAIN__, @function
MAIN__:
.LFB2:
        .file 1 "test.f"
        .loc 1 1 0
        pushl   %ebp
.LCFI0:
        movl    %esp, %ebp
.LCFI1:
        subl    $168, %esp
.LCFI2:
.LBB2:
        .loc 1 8 0
        flds    .LC0
        fstpl   (%esp)
.LCFI3:
        call    acos
        .loc 1 10 0
        movl    $-500134854, %eax
        movl    $1044740494, %edx
        movl    %eax, -40(%ebp)
        movl    %edx, -36(%ebp)
        .loc 1 11 0
        movl    %eax, -32(%ebp)
        movl    %edx, -28(%ebp)
        .loc 1 12 0
        movl    %eax, -24(%ebp)
        movl    %edx, -20(%ebp)
        .loc 1 13 0
        fstl    -72(%ebp)
        .loc 1 14 0
        fstl    -64(%ebp)
        .loc 1 15 0
        fstpl   -56(%ebp)
        .loc 1 16 0
        fld1
        fstl    -104(%ebp)
        .loc 1 17 0
        fstl    -96(%ebp)
        .loc 1 18 0
        fstpl   -88(%ebp)
        .loc 1 19 0
        movl    $150000, -132(%ebp)
        .loc 1 20 0
        movl    $-755914244, %eax
        movl    $1062232653, %edx
        movl    %eax, -144(%ebp)
        movl    %edx, -140(%ebp)
        .loc 1 21 0
        movl    $64, -152(%ebp)
        .loc 1 22 0
        movl    $1000000, -148(%ebp)
.LBB3:
        .loc 1 25 0
        movl    $__g77_cilist_0.1, (%esp)
        call    s_wsle
        pushl   $14
        pushl   $.LC4
        pushl   $.LC5
        pushl   $.LC6
        call    do_lio
        addl    $32, %esp
.LCFI4:
        call    e_wsle
.LBE3:
        .loc 1 26 0
        subl    $12, %esp
        leal    -108(%ebp), %eax
        pushl   %eax
        leal    -112(%ebp), %eax
        pushl   %eax
        leal    -120(%ebp), %eax
        pushl   %eax
        leal    -128(%ebp), %eax
        pushl   %eax
        leal    -132(%ebp), %eax
        pushl   %eax
        pushl   $wk.0
        leal    -144(%ebp), %eax
        pushl   %eax
        leal    -148(%ebp), %eax
        pushl   %eax
        leal    -152(%ebp), %eax
        pushl   %eax
        leal    -72(%ebp), %eax
        pushl   %eax
        leal    -40(%ebp), %eax
        pushl   %eax
        pushl   $.LC7
        pushl   $f3_
.LCFI5:
        call    dadmul_
.LBB4:
        .loc 1 28 0
        addl    $52, %esp
        pushl   $__g77_cilist_1.2
.LCFI6:
        call    s_wsle
        pushl   $2
        pushl   $.LC8
        pushl   $.LC5
        pushl   $.LC6
        call    do_lio
        addl    $32, %esp
        pushl   $8
        leal    -128(%ebp), %eax
        pushl   %eax
        pushl   $.LC5
        pushl   $.LC9
        call    do_lio
        pushl   $2
        pushl   $.LC10
        pushl   $.LC5
        pushl   $.LC6
        call    do_lio
        addl    $32, %esp
        pushl   $8
        leal    -120(%ebp), %eax
        pushl   %eax
        pushl   $.LC5
        pushl   $.LC9
        call    do_lio
        pushl   $1
        pushl   $.LC11
        pushl   $.LC5
        pushl   $.LC6
        call    do_lio
        addl    $32, %esp
        pushl   $4
        leal    -112(%ebp), %eax
        pushl   %eax
        pushl   $.LC5
        pushl   $.LC7
        call    do_lio
        pushl   $6
        pushl   $.LC12
        pushl   $.LC5
        pushl   $.LC6
        call    do_lio
        addl    $32, %esp
        pushl   $13
        pushl   $.LC13
        pushl   $.LC5
        pushl   $.LC6
        call    do_lio
        pushl   $4
        leal    -108(%ebp), %eax
        pushl   %eax
        pushl   $.LC5
        pushl   $.LC7
        call    do_lio
        addl    $32, %esp
.LCFI7:
        call    e_wsle
.LBE4:
        .loc 1 31 0
        subl    $8, %esp
        pushl   $0
        pushl   $.LC14
.LCFI8:
        call    s_stop
.LBE2:
.LFE2:
        .size   MAIN__, .-MAIN__
.globl f3_
        .type   f3_, @function
f3_:
.LFB3:
        .loc 1 33 0
        pushl   %ebp
.LCFI9:
        movl    %esp, %ebp
.LCFI10:
        pushl   %esi
.LCFI11:
        pushl   %ebx
.LCFI12:
        subl    $40, %esp
.LCFI13:
        movl    12(%ebp), %eax
.LBB5:
        .loc 1 38 0
        movl    8(%eax), %ebx
        movl    12(%eax), %esi
        .loc 1 39 0
        fldl    16(%eax)
        fstpl   -16(%ebp)
        .loc 1 40 0
        pushl   4(%eax)
        pushl   (%eax)
.LCFI14:
        call    sin
        addl    $8, %esp
        fstpl   -32(%ebp)
        pushl   %esi
        pushl   %ebx
        call    sin
        addl    $8, %esp
        fmull   -32(%ebp)
        fstpl   -24(%ebp)
        pushl   -12(%ebp)
        pushl   -16(%ebp)
        call    sin
        addl    $16, %esp
        fmull   -24(%ebp)
        fstl    -24(%ebp)
        fmul    %st(0), %st
.LBE5:
        .loc 1 41 0
        leal    -8(%ebp), %esp
        popl    %ebx
        popl    %esi
        popl    %ebp
        ret
.LFE3:
        .size   f3_, .-f3_
        .section        .debug_frame,"",@progbits
.Lframe0:
        .long   .LECIE0-.LSCIE0
.LSCIE0:
        .long   0xffffffff
        .byte   0x1
        .string ""
        .uleb128 0x1
        .sleb128 -4
        .byte   0x8
        .byte   0xc
        .uleb128 0x4
        .uleb128 0x4
        .byte   0x88
        .uleb128 0x1
        .align 4
.LECIE0:
.LSFDE0:
        .long   .LEFDE0-.LASFDE0
.LASFDE0:
        .long   .Lframe0
        .long   .LFB2
        .long   .LFE2-.LFB2
        .byte   0x4
        .long   .LCFI0-.LFB2
        .byte   0xe
        .uleb128 0x8
        .byte   0x85
        .uleb128 0x2
        .byte   0x4
        .long   .LCFI1-.LCFI0
        .byte   0xd
        .uleb128 0x5
        .byte   0x4
        .long   .LCFI3-.LCFI1
        .byte   0x2e
        .uleb128 0x10
        .byte   0x4
        .long   .LCFI4-.LCFI3
        .byte   0x2e
        .uleb128 0x0
        .byte   0x4
        .long   .LCFI5-.LCFI4
        .byte   0x2e
        .uleb128 0x40
        .byte   0x4
        .long   .LCFI6-.LCFI5
        .byte   0x2e
        .uleb128 0x10
        .byte   0x4
        .long   .LCFI7-.LCFI6
        .byte   0x2e
        .uleb128 0x0
        .byte   0x4
        .long   .LCFI8-.LCFI7
        .byte   0x2e
        .uleb128 0x10
        .align 4
.LEFDE0:
.LSFDE2:
        .long   .LEFDE2-.LASFDE2
.LASFDE2:
        .long   .Lframe0
        .long   .LFB3
        .long   .LFE3-.LFB3
        .byte   0x4
        .long   .LCFI9-.LFB3
        .byte   0xe
        .uleb128 0x8
        .byte   0x85
        .uleb128 0x2
        .byte   0x4
        .long   .LCFI10-.LCFI9
        .byte   0xd
        .uleb128 0x5
        .byte   0x4
        .long   .LCFI13-.LCFI10
        .byte   0x83
        .uleb128 0x4
        .byte   0x86
        .uleb128 0x3
        .byte   0x4
        .long   .LCFI14-.LCFI13
        .byte   0x2e
        .uleb128 0x10
        .align 4
.LEFDE2:
        .text
.Letext0:
        .section        .debug_info
        .long   0x25e
        .value  0x2
        .long   .Ldebug_abbrev0
        .byte   0x4
        .uleb128 0x1
        .long   .Ldebug_line0
        .long   .Letext0
        .long   .Ltext0
        .long   .LASF17
        .byte   0x7
        .long   .LASF18
        .long   .LASF19
        .uleb128 0x2
        .long   0x148
        .byte   0x1
        .long   .LASF6
        .byte   0x1
        .byte   0x1
        .long   .LFB2
        .long   .LFE2
        .byte   0x1
        .byte   0x55
        .uleb128 0x3
        .string "a"
        .byte   0x1
        .byte   0x3
        .long   0x148
        .byte   0x2
        .byte   0x91
        .sleb128 -40
        .uleb128 0x3
        .string "b"
        .byte   0x1
        .byte   0x3
        .long   0x148
        .byte   0x3
        .byte   0x91
        .sleb128 -72
        .uleb128 0x3
        .string "wk"
        .byte   0x1
        .byte   0x3
        .long   0x166
        .byte   0x5
        .byte   0x3
        .long   wk.0
        .uleb128 0x4
        .string "pi"
        .byte   0x1
        .byte   0x3
        .long   0x15f
        .uleb128 0x5
        .long   .LASF0
        .byte   0x1
        .byte   0x3
        .long   0x15f
        .byte   0x3
        .byte   0x91
        .sleb128 -128
        .uleb128 0x5
        .long   .LASF1
        .byte   0x1
        .byte   0x3
        .long   0x15f
        .byte   0x3
        .byte   0x91
        .sleb128 -120
        .uleb128 0x3
        .string "eps"
        .byte   0x1
        .byte   0x3
        .long   0x15f
        .byte   0x3
        .byte   0x91
        .sleb128 -144
        .uleb128 0x3
        .string "c"
        .byte   0x1
        .byte   0x3
        .long   0x148
        .byte   0x3
        .byte   0x91
        .sleb128 -104
        .uleb128 0x4
        .string "t"
        .byte   0x1
        .byte   0x3
        .long   0x15f
        .uleb128 0x5
        .long   .LASF2
        .byte   0x1
        .byte   0x4
        .long   0x158
        .byte   0x3
        .byte   0x91
        .sleb128 -112
        .uleb128 0x5
        .long   .LASF3
        .byte   0x1
        .byte   0x4
        .long   0x158
        .byte   0x3
        .byte   0x91
        .sleb128 -108
        .uleb128 0x3
        .string "iwk"
        .byte   0x1
        .byte   0x4
        .long   0x158
        .byte   0x3
        .byte   0x91
        .sleb128 -132
        .uleb128 0x5
        .long   .LASF4
        .byte   0x1
        .byte   0x4
        .long   0x158
        .byte   0x3
        .byte   0x91
        .sleb128 -152
        .uleb128 0x5
        .long   .LASF5
        .byte   0x1
        .byte   0x4
        .long   0x158
        .byte   0x3
        .byte   0x91
        .sleb128 -148
        .uleb128 0x6
        .long   0x10f
        .byte   0x1
        .string "f3_"
        .byte   0x1
        .byte   0x5
        .long   0x179
        .byte   0x1
        .uleb128 0x7
        .byte   0x0
        .uleb128 0x8
        .long   0x12d
        .long   .LBB3
        .long   .LBE3
        .uleb128 0x9
        .long   .LASF7
        .long   0x180
        .byte   0x1
        .byte   0x5
        .byte   0x3
        .long   __g77_cilist_0.1
        .byte   0x0
        .uleb128 0xa
        .long   .LBB4
        .long   .LBE4
        .uleb128 0x9
        .long   .LASF8
        .long   0x180
        .byte   0x1
        .byte   0x5
        .byte   0x3
        .long   __g77_cilist_1.2
        .byte   0x0
        .byte   0x0
        .uleb128 0xb
        .long   0x158
        .long   0x15f
        .uleb128 0xc
        .long   0x158
        .byte   0x3
        .byte   0x0
        .uleb128 0xd
        .long   .LASF9
        .byte   0x4
        .byte   0x5
        .uleb128 0xd
        .long   .LASF10
        .byte   0x8
        .byte   0x4
        .uleb128 0xb
        .long   0x179
        .long   0x15f
        .uleb128 0xe
        .long   0x158
        .long   0x249f0
        .byte   0x0
        .uleb128 0xf
        .string "int"
        .byte   0x4
        .byte   0x5
        .uleb128 0x10
        .long   0x1cd
        .byte   0x14
        .uleb128 0x11
        .string "err"
        .byte   0x1
        .byte   0x19
        .long   0x1cd
        .byte   0x2
        .byte   0x23
        .uleb128 0x0
        .uleb128 0x12
        .long   .LASF11
        .byte   0x1
        .byte   0x19
        .long   0x1d4
        .byte   0x2
        .byte   0x23
        .uleb128 0x4
        .uleb128 0x11
        .string "end"
        .byte   0x1
        .byte   0x19
        .long   0x1cd
        .byte   0x2
        .byte   0x23
        .uleb128 0x8
        .uleb128 0x12
        .long   .LASF12
        .byte   0x1
        .byte   0x19
        .long   0x1db
        .byte   0x2
        .byte   0x23
        .uleb128 0xc
        .uleb128 0x11
        .string "rec"
        .byte   0x1
        .byte   0x19
        .long   0x1d4
        .byte   0x2
        .byte   0x23
        .uleb128 0x10
        .byte   0x0
        .uleb128 0xd
        .long   .LASF13
        .byte   0x4
        .byte   0x5
        .uleb128 0xd
        .long   .LASF14
        .byte   0x4
        .byte   0x5
        .uleb128 0x13
        .byte   0x4
        .long   0x1e1
        .uleb128 0xd
        .long   .LASF15
        .byte   0x1
        .byte   0x8
        .uleb128 0x14
        .long   0x24b
        .byte   0x1
        .string "f3_"
        .byte   0x1
        .byte   0x21
        .long   0x15f
        .long   .LFB3
        .long   .LFE3
        .byte   0x1
        .byte   0x55
        .uleb128 0x15
        .long   .LASF16
        .long   0x24b
        .byte   0x1
        .byte   0x2
        .byte   0x91
        .sleb128 8
        .uleb128 0x16
        .string "x"
        .long   0x256
        .byte   0x1
        .byte   0x1
        .byte   0x50
        .uleb128 0x3
        .string "f3"
        .byte   0x1
        .byte   0x21
        .long   0x15f
        .byte   0x1
        .byte   0x5b
        .uleb128 0x4
        .string "a"
        .byte   0x1
        .byte   0x23
        .long   0x15f
        .uleb128 0x3
        .string "b"
        .byte   0x1
        .byte   0x23
        .long   0x15f
        .byte   0x6
        .byte   0x53
        .byte   0x93
        .uleb128 0x4
        .byte   0x54
        .byte   0x93
        .uleb128 0x4
        .uleb128 0x3
        .string "c"
        .byte   0x1
        .byte   0x23
        .long   0x15f
        .byte   0x2
        .byte   0x91
        .sleb128 -16
        .byte   0x0
        .uleb128 0x17
        .long   0x250
        .uleb128 0x13
        .byte   0x4
        .long   0x158
        .uleb128 0x17
        .long   0x25b
        .uleb128 0x13
        .byte   0x4
        .long   0x148
        .byte   0x0
        .section        .debug_abbrev
        .uleb128 0x1
        .uleb128 0x11
        .byte   0x1
        .uleb128 0x10
        .uleb128 0x6
        .uleb128 0x12
        .uleb128 0x1
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x25
        .uleb128 0xe
        .uleb128 0x13
        .uleb128 0xb
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x1b
        .uleb128 0xe
        .byte   0x0
        .byte   0x0
        .uleb128 0x2
        .uleb128 0x2e
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x3f
        .uleb128 0xc
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x12
        .uleb128 0x1
        .uleb128 0x40
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x34
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x4
        .uleb128 0x34
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0x5
        .uleb128 0x34
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x6
        .uleb128 0x2e
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x3f
        .uleb128 0xc
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x3c
        .uleb128 0xc
        .byte   0x0
        .byte   0x0
        .uleb128 0x7
        .uleb128 0x18
        .byte   0x0
        .byte   0x0
        .byte   0x0
        .uleb128 0x8
        .uleb128 0xb
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x12
        .uleb128 0x1
        .byte   0x0
        .byte   0x0
        .uleb128 0x9
        .uleb128 0x34
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x34
        .uleb128 0xc
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0xa
        .uleb128 0xb
        .byte   0x1
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x12
        .uleb128 0x1
        .byte   0x0
        .byte   0x0
        .uleb128 0xb
        .uleb128 0x1
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0xc
        .uleb128 0x21
        .byte   0x0
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x2f
        .uleb128 0xb
        .byte   0x0
        .byte   0x0
        .uleb128 0xd
        .uleb128 0x24
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0xb
        .uleb128 0xb
        .uleb128 0x3e
        .uleb128 0xb
        .byte   0x0
        .byte   0x0
        .uleb128 0xe
        .uleb128 0x21
        .byte   0x0
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x2f
        .uleb128 0x6
        .byte   0x0
        .byte   0x0
        .uleb128 0xf
        .uleb128 0x24
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0xb
        .uleb128 0xb
        .uleb128 0x3e
        .uleb128 0xb
        .byte   0x0
        .byte   0x0
        .uleb128 0x10
        .uleb128 0x13
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0xb
        .uleb128 0xb
        .byte   0x0
        .byte   0x0
        .uleb128 0x11
        .uleb128 0xd
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x38
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x12
        .uleb128 0xd
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x38
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x13
        .uleb128 0xf
        .byte   0x0
        .uleb128 0xb
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .uleb128 0x14
        .uleb128 0x2e
        .byte   0x1
        .uleb128 0x1
        .uleb128 0x13
        .uleb128 0x3f
        .uleb128 0xc
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x3a
        .uleb128 0xb
        .uleb128 0x3b
        .uleb128 0xb
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x11
        .uleb128 0x1
        .uleb128 0x12
        .uleb128 0x1
        .uleb128 0x40
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x15
        .uleb128 0x5
        .byte   0x0
        .uleb128 0x3
        .uleb128 0xe
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x34
        .uleb128 0xc
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x16
        .uleb128 0x5
        .byte   0x0
        .uleb128 0x3
        .uleb128 0x8
        .uleb128 0x49
        .uleb128 0x13
        .uleb128 0x34
        .uleb128 0xc
        .uleb128 0x2
        .uleb128 0xa
        .byte   0x0
        .byte   0x0
        .uleb128 0x17
        .uleb128 0x26
        .byte   0x0
        .uleb128 0x49
        .uleb128 0x13
        .byte   0x0
        .byte   0x0
        .byte   0x0
        .section        .debug_pubnames,"",@progbits
        .long   0x21
        .value  0x2
        .long   .Ldebug_info0
        .long   0x262
        .long   0x25
        .string "MAIN__"
        .long   0x1e8
        .string "f3_"
        .long   0x0
        .section        .debug_aranges,"",@progbits
        .long   0x1c
        .value  0x2
        .long   .Ldebug_info0
        .byte   0x4
        .byte   0x0
        .value  0x0
        .value  0x0
        .long   .Ltext0
        .long   .Letext0-.Ltext0
        .long   0x0
        .long   0x0
        .section        .debug_str,"MS",@progbits,1
.LASF10:
        .string "double precision"
.LASF13:
        .string "__g77_f2c_flag"
.LASF5:
        .string "maxpt"
.LASF12:
        .string "format"
.LASF17:
        .string "GNU F77 3.4.4 20041218 (prerelease) (Debian 3.4.3-7)"
.LASF9:
        .string "integer"
.LASF19:
        .string "/home/kmccarty/test-g77-bug"
.LASF16:
        .string "ndim"
.LASF2:
        .string "nfnev"
.LASF0:
        .string "valor"
.LASF18:
        .string "test.f"
.LASF7:
        .string "__g77_cilist_0"
.LASF8:
        .string "__g77_cilist_1"
.LASF11:
        .string "unit"
.LASF3:
        .string "ifail"
.LASF4:
        .string "minpt"
.LASF1:
        .string "relerr"
.LASF14:
        .string "__g77_f2c_ftnint"
.LASF6:
        .string "MAIN__"
.LASF15:
        .string "char"
        .section        .note.GNU-stack,"",@progbits
        .ident  "GCC: (GNU) 3.4.4 20041218 (prerelease) (Debian 3.4.3-7)"

Reply via email to