OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/30981 ([4.1 only] a ** exp fails for integer exponents if exp is "-huge()-1" (endless loop)) 

2007-03-04  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/30981
	* m4/pow_m4: Use appropriate unsigned int type for u.
	* generated/pow_c10_i16.c: Regenerated.
	* generated/pow_c10_i4.c: Regenerated.
	* generated/pow_c10_i8.c: Regenerated.
	* generated/pow_c16_i16.c: Regenerated.
	* generated/pow_c16_i4.c: Regenerated.
	* generated/pow_c16_i8.c: Regenerated.
	* generated/pow_c4_i16.c: Regenerated.
	* generated/pow_c4_i4.c: Regenerated.
	* generated/pow_c4_i8.c: Regenerated.
	* generated/pow_c8_i16.c: Regenerated.
	* generated/pow_c8_i4.c: Regenerated.
	* generated/pow_c8_i8.c: Regenerated.
	* generated/pow_i16_i16.c: Regenerated.
	* generated/pow_i16_i4.c: Regenerated.
	* generated/pow_i16_i8.c: Regenerated.
	* generated/pow_i4_i16.c: Regenerated.
	* generated/pow_i4_i4.c: Regenerated.
	* generated/pow_i4_i8.c: Regenerated.
	* generated/pow_i8_i16.c: Regenerated.
	* generated/pow_i8_i4.c: Regenerated.
	* generated/pow_i8_i8.c: Regenerated.
	* generated/pow_r10_i16.c: Regenerated.
	* generated/pow_r10_i4.c: Regenerated.
	* generated/pow_r10_i8.c: Regenerated.
	* generated/pow_r16_i16.c: Regenerated.
	* generated/pow_r16_i4.c: Regenerated.
	* generated/pow_r16_i8.c: Regenerated.
	* generated/pow_r4_i16.c: Regenerated.
	* generated/pow_r4_i4.c: Regenerated.
	* generated/pow_r4_i8.c: Regenerated.
	* generated/pow_r8_i16.c: Regenerated.
	* generated/pow_r8_i4.c: Regenerated.
	* generated/pow_r8_i8.c: Regenerated.
	
2007-03-04  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/30981
	* gfortran.dg/integer_exponentiation_1.f90:  New test.

From-SVN: r122522
This commit is contained in:
Thomas Koenig 2007-03-04 08:03:34 +00:00 committed by Thomas Koenig
parent dda10672f1
commit 3d1f465aff
37 changed files with 278 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-03-04 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30981
* gfortran.dg/integer_exponentiation_1.f90: New test.
2007-03-04 Nathan Sidwell <nathan@codesourcery.com>
* gcc.target/m68k/m68k.exp: New.

6
gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90 Normal file
View File

@ -0,0 +1,6 @@
! { dg-do run }
! PR 30981 - this used to go into an endless loop during execution.
program test
a = 3.0
b = a**(-2147483647-1) ! { dg-warning "Integer outside symmetric range" }
end program test

38
libgfortran/ChangeLog
View File

@ -1,3 +1,41 @@
2007-03-04 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30981
* m4/pow_m4: Use appropriate unsigned int type for u.
* generated/pow_c10_i16.c: Regenerated.
* generated/pow_c10_i4.c: Regenerated.
* generated/pow_c10_i8.c: Regenerated.
* generated/pow_c16_i16.c: Regenerated.
* generated/pow_c16_i4.c: Regenerated.
* generated/pow_c16_i8.c: Regenerated.
* generated/pow_c4_i16.c: Regenerated.
* generated/pow_c4_i4.c: Regenerated.
* generated/pow_c4_i8.c: Regenerated.
* generated/pow_c8_i16.c: Regenerated.
* generated/pow_c8_i4.c: Regenerated.
* generated/pow_c8_i8.c: Regenerated.
* generated/pow_i16_i16.c: Regenerated.
* generated/pow_i16_i4.c: Regenerated.
* generated/pow_i16_i8.c: Regenerated.
* generated/pow_i4_i16.c: Regenerated.
* generated/pow_i4_i4.c: Regenerated.
* generated/pow_i4_i8.c: Regenerated.
* generated/pow_i8_i16.c: Regenerated.
* generated/pow_i8_i4.c: Regenerated.
* generated/pow_i8_i8.c: Regenerated.
* generated/pow_r10_i16.c: Regenerated.
* generated/pow_r10_i4.c: Regenerated.
* generated/pow_r10_i8.c: Regenerated.
* generated/pow_r16_i16.c: Regenerated.
* generated/pow_r16_i4.c: Regenerated.
* generated/pow_r16_i8.c: Regenerated.
* generated/pow_r4_i16.c: Regenerated.
* generated/pow_r4_i4.c: Regenerated.
* generated/pow_r4_i8.c: Regenerated.
* generated/pow_r8_i16.c: Regenerated.
* generated/pow_r8_i4.c: Regenerated.
* generated/pow_r8_i8.c: Regenerated.
2007-03-03 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/31001

10
libgfortran/generated/pow_c10_i16.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_10
pow_c10_i16 (GFC_COMPLEX_10 a, GFC_INTEGER_16 b)
{
GFC_COMPLEX_10 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c10_i16 (GFC_COMPLEX_10 a, GFC_INTEGER_16 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c10_i4.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_10
pow_c10_i4 (GFC_COMPLEX_10 a, GFC_INTEGER_4 b)
{
GFC_COMPLEX_10 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c10_i4 (GFC_COMPLEX_10 a, GFC_INTEGER_4 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c10_i8.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_10
pow_c10_i8 (GFC_COMPLEX_10 a, GFC_INTEGER_8 b)
{
GFC_COMPLEX_10 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c10_i8 (GFC_COMPLEX_10 a, GFC_INTEGER_8 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c16_i16.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_16
pow_c16_i16 (GFC_COMPLEX_16 a, GFC_INTEGER_16 b)
{
GFC_COMPLEX_16 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c16_i16 (GFC_COMPLEX_16 a, GFC_INTEGER_16 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c16_i4.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_16
pow_c16_i4 (GFC_COMPLEX_16 a, GFC_INTEGER_4 b)
{
GFC_COMPLEX_16 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c16_i4 (GFC_COMPLEX_16 a, GFC_INTEGER_4 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c16_i8.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_16
pow_c16_i8 (GFC_COMPLEX_16 a, GFC_INTEGER_8 b)
{
GFC_COMPLEX_16 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c16_i8 (GFC_COMPLEX_16 a, GFC_INTEGER_8 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c4_i16.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_4
pow_c4_i16 (GFC_COMPLEX_4 a, GFC_INTEGER_16 b)
{
GFC_COMPLEX_4 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c4_i16 (GFC_COMPLEX_4 a, GFC_INTEGER_16 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c4_i4.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_4
pow_c4_i4 (GFC_COMPLEX_4 a, GFC_INTEGER_4 b)
{
GFC_COMPLEX_4 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c4_i4 (GFC_COMPLEX_4 a, GFC_INTEGER_4 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c4_i8.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_4
pow_c4_i8 (GFC_COMPLEX_4 a, GFC_INTEGER_8 b)
{
GFC_COMPLEX_4 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c4_i8 (GFC_COMPLEX_4 a, GFC_INTEGER_8 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c8_i16.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_8
pow_c8_i16 (GFC_COMPLEX_8 a, GFC_INTEGER_16 b)
{
GFC_COMPLEX_8 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c8_i16 (GFC_COMPLEX_8 a, GFC_INTEGER_16 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c8_i4.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_8
pow_c8_i4 (GFC_COMPLEX_8 a, GFC_INTEGER_4 b)
{
GFC_COMPLEX_8 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c8_i4 (GFC_COMPLEX_8 a, GFC_INTEGER_4 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_c8_i8.c
View File

@ -45,7 +45,8 @@ GFC_COMPLEX_8
pow_c8_i8 (GFC_COMPLEX_8 a, GFC_INTEGER_8 b)
{
GFC_COMPLEX_8 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_c8_i8 (GFC_COMPLEX_8 a, GFC_INTEGER_8 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i16_i16.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_16
pow_i16_i16 (GFC_INTEGER_16 a, GFC_INTEGER_16 b)
{
GFC_INTEGER_16 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i16_i16 (GFC_INTEGER_16 a, GFC_INTEGER_16 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i16_i4.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_16
pow_i16_i4 (GFC_INTEGER_16 a, GFC_INTEGER_4 b)
{
GFC_INTEGER_16 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i16_i4 (GFC_INTEGER_16 a, GFC_INTEGER_4 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i16_i8.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_16
pow_i16_i8 (GFC_INTEGER_16 a, GFC_INTEGER_8 b)
{
GFC_INTEGER_16 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i16_i8 (GFC_INTEGER_16 a, GFC_INTEGER_8 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i4_i16.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_4
pow_i4_i16 (GFC_INTEGER_4 a, GFC_INTEGER_16 b)
{
GFC_INTEGER_4 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i4_i16 (GFC_INTEGER_4 a, GFC_INTEGER_16 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i4_i4.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_4
pow_i4_i4 (GFC_INTEGER_4 a, GFC_INTEGER_4 b)
{
GFC_INTEGER_4 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i4_i4 (GFC_INTEGER_4 a, GFC_INTEGER_4 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i4_i8.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_4
pow_i4_i8 (GFC_INTEGER_4 a, GFC_INTEGER_8 b)
{
GFC_INTEGER_4 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i4_i8 (GFC_INTEGER_4 a, GFC_INTEGER_8 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i8_i16.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_8
pow_i8_i16 (GFC_INTEGER_8 a, GFC_INTEGER_16 b)
{
GFC_INTEGER_8 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i8_i16 (GFC_INTEGER_8 a, GFC_INTEGER_16 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i8_i4.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_8
pow_i8_i4 (GFC_INTEGER_8 a, GFC_INTEGER_4 b)
{
GFC_INTEGER_8 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i8_i4 (GFC_INTEGER_8 a, GFC_INTEGER_4 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

8
libgfortran/generated/pow_i8_i8.c
View File

@ -45,7 +45,8 @@ GFC_INTEGER_8
pow_i8_i8 (GFC_INTEGER_8 a, GFC_INTEGER_8 b)
{
GFC_INTEGER_8 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -60,7 +61,10 @@ pow_i8_i8 (GFC_INTEGER_8 a, GFC_INTEGER_8 b)
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r10_i16.c
View File

@ -45,7 +45,8 @@ GFC_REAL_10
pow_r10_i16 (GFC_REAL_10 a, GFC_INTEGER_16 b)
{
GFC_REAL_10 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r10_i16 (GFC_REAL_10 a, GFC_INTEGER_16 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r10_i4.c
View File

@ -45,7 +45,8 @@ GFC_REAL_10
pow_r10_i4 (GFC_REAL_10 a, GFC_INTEGER_4 b)
{
GFC_REAL_10 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r10_i4 (GFC_REAL_10 a, GFC_INTEGER_4 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r10_i8.c
View File

@ -45,7 +45,8 @@ GFC_REAL_10
pow_r10_i8 (GFC_REAL_10 a, GFC_INTEGER_8 b)
{
GFC_REAL_10 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r10_i8 (GFC_REAL_10 a, GFC_INTEGER_8 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r16_i16.c
View File

@ -45,7 +45,8 @@ GFC_REAL_16
pow_r16_i16 (GFC_REAL_16 a, GFC_INTEGER_16 b)
{
GFC_REAL_16 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r16_i16 (GFC_REAL_16 a, GFC_INTEGER_16 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r16_i4.c
View File

@ -45,7 +45,8 @@ GFC_REAL_16
pow_r16_i4 (GFC_REAL_16 a, GFC_INTEGER_4 b)
{
GFC_REAL_16 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r16_i4 (GFC_REAL_16 a, GFC_INTEGER_4 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r16_i8.c
View File

@ -45,7 +45,8 @@ GFC_REAL_16
pow_r16_i8 (GFC_REAL_16 a, GFC_INTEGER_8 b)
{
GFC_REAL_16 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r16_i8 (GFC_REAL_16 a, GFC_INTEGER_8 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r4_i16.c
View File

@ -45,7 +45,8 @@ GFC_REAL_4
pow_r4_i16 (GFC_REAL_4 a, GFC_INTEGER_16 b)
{
GFC_REAL_4 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r4_i16 (GFC_REAL_4 a, GFC_INTEGER_16 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r4_i4.c
View File

@ -45,7 +45,8 @@ GFC_REAL_4
pow_r4_i4 (GFC_REAL_4 a, GFC_INTEGER_4 b)
{
GFC_REAL_4 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r4_i4 (GFC_REAL_4 a, GFC_INTEGER_4 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r4_i8.c
View File

@ -45,7 +45,8 @@ GFC_REAL_4
pow_r4_i8 (GFC_REAL_4 a, GFC_INTEGER_8 b)
{
GFC_REAL_4 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r4_i8 (GFC_REAL_4 a, GFC_INTEGER_8 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r8_i16.c
View File

@ -45,7 +45,8 @@ GFC_REAL_8
pow_r8_i16 (GFC_REAL_8 a, GFC_INTEGER_16 b)
{
GFC_REAL_8 pow, x;
GFC_INTEGER_16 n, u;
GFC_INTEGER_16 n;
GFC_UINTEGER_16 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r8_i16 (GFC_REAL_8 a, GFC_INTEGER_16 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r8_i4.c
View File

@ -45,7 +45,8 @@ GFC_REAL_8
pow_r8_i4 (GFC_REAL_8 a, GFC_INTEGER_4 b)
{
GFC_REAL_8 pow, x;
GFC_INTEGER_4 n, u;
GFC_INTEGER_4 n;
GFC_UINTEGER_4 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r8_i4 (GFC_REAL_8 a, GFC_INTEGER_4 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/generated/pow_r8_i8.c
View File

@ -45,7 +45,8 @@ GFC_REAL_8
pow_r8_i8 (GFC_REAL_8 a, GFC_INTEGER_8 b)
{
GFC_REAL_8 pow, x;
GFC_INTEGER_8 n, u;
GFC_INTEGER_8 n;
GFC_UINTEGER_8 u;
n = b;
x = a;
@ -55,10 +56,13 @@ pow_r8_i8 (GFC_REAL_8 a, GFC_INTEGER_8 b)
if (n < 0)
{
n = -n;
u = -n;
x = pow / x;
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)

10
libgfortran/m4/pow.m4
View File

@ -46,7 +46,8 @@ rtype_name
`pow_'rtype_code`_'atype_code (rtype_name a, atype_name b)
{
rtype_name pow, x;
atype_name n, u;
atype_name n;
`GFC_UINTEGER_'atype_kind` u;'
n = b;
x = a;
@ -62,11 +63,14 @@ ifelse(rtype_letter,i,`dnl
return (n & 1) ? -1 : 1;
return (x == 0) ? 1 / x : 0;
',`
n = -n;
u = -n;
x = pow / x;
')dnl
}
u = n;
else
{
u = n;
}
for (;;)
{
if (u & 1)