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
Thomas Koenig
parent
dda10672f1
commit
3d1f465aff
37 changed files with 278 additions and 93 deletions
|
|
@ -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
6
gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90
Normal 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
|
||||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue