------- Comment #8 from danglin at gcc dot gnu dot org 2008-11-09 02:01 -------
(gdb) c
Continuing.
/xxx/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/integer_exponentiation_4.f90:9.12:
print *, 0**(-1) ! { dg-error "Division by zero" }
1
Error: Division by zero at (1)
/xxx/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/integer_exponentiation_4.f90:11.12:
print *, 0**(-huge(0)-1) ! { dg-error "Division by zero" }
1
Error: Division by zero at (1)
/xxx/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/integer_exponentiation_4.f90:13.12:
print *, 0**(-(2_8**32)) ! { dg-error "Division by zero" }
1
Error: Division by zero at (1)
Breakpoint 2, 0x00589304 in __gmpz_pow_ui ()
(gdb) p/x $r24
$9 = 0x7fffffff
(gdb) frame 1
#1 0x000bf840 in gfc_arith_power (op1=0x400c4aa0, op2=0x400c4ca8,
resultp=0x7b03bba8) at ../../gcc/gcc/fortran/arith.c:999
999 switch (op1->ts.type)
(gdb) p op1->value.integer
$10 = {{_mp_alloc = 2, _mp_size = 1, _mp_d = 0x400c41d0}}
(gdb) p/x $r25
$11 = 0x400c4ae8
(gdb) p/x &op1->value.integer
$12 = 0x400c4ae8
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33584
