[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Bug#290438: produces wrong code on i386 compiling with -fno-automatic -O1



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 <kmccarty@princeton.edu>   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 to: