[Bug fortran/33584] FAIL: gfortran.dg/integer_exponentiation_4.f90 -O (internal compiler error)

[danglin at gcc dot gnu dot org]

------- Comment #7 from danglin at gcc dot gnu dot org  2008-11-09 01:37 -------
(gdb) p *op1
$2 = {expr_type = EXPR_CONSTANT, ts = {type = BT_INTEGER, kind = 4, 
    derived = 0x0, cl = 0x0, is_c_interop = 0, is_iso_c = 0, 
    f90_type = BT_UNKNOWN}, rank = 0, shape = 0x0, symtree = 0x0, ref = 0x0, 
  where = {
    nextc = 0x400bad3d "**huge(0) ! { dg-error \"Arithmetic overflow\" }", 
    lb = 0x400bad20}, inline_noncopying_intrinsic = 0, is_boz = 0, 
  con_by_offset = 0x0, representation = {length = 0, string = 0x0}, value = {
    logical = 2, integer = {{_mp_alloc = 2, _mp_size = 1, 
        _mp_d = 0x400c41d0}}, real = {{_mpfr_prec = 2, _mpfr_sign = 1, 
        _mpfr_exp = 1074545104, _mpfr_d = 0x0}}, complex = {r = {{
          _mpfr_prec = 2, _mpfr_sign = 1, _mpfr_exp = 1074545104, 
          _mpfr_d = 0x0}}, i = {{_mpfr_prec = 0, _mpfr_sign = 0, 
          _mpfr_exp = 0, _mpfr_d = 0x0}}}, op = {operator = INTRINSIC_PLUS, 
      uop = 0x1, op1 = 0x400c41d0, op2 = 0x0}, function = {actual = 0x2, 
      name = 0x1 <Address 0x1 out of bounds>, isym = 0x400c41d0, esym = 0x0}, 
    character = {length = 2, string = 0x1 <Address 0x1 out of bounds>}, 
    constructor = 0x2}}
(gdb) p *op2
$3 = {expr_type = EXPR_CONSTANT, ts = {type = BT_INTEGER, kind = 4, 
    derived = 0x0, cl = 0x0, is_c_interop = 0, is_iso_c = 0, 
    f90_type = BT_UNKNOWN}, rank = 0, shape = 0x0, symtree = 0x0, ref = 0x0, 
  where = {nextc = 0x400bad43 "(0) ! { dg-error \"Arithmetic overflow\" }", 
    lb = 0x400bad20}, inline_noncopying_intrinsic = 0, is_boz = 0, 
  con_by_offset = 0x0, representation = {length = 0, string = 0x0}, value = {
    logical = 1, integer = {{_mp_alloc = 1, _mp_size = 1, 
        _mp_d = 0x400992e8}}, real = {{_mpfr_prec = 1, _mpfr_sign = 1, 
        _mpfr_exp = 1074369256, _mpfr_d = 0x0}}, complex = {r = {{
          _mpfr_prec = 1, _mpfr_sign = 1, _mpfr_exp = 1074369256, 
          _mpfr_d = 0x0}}, i = {{_mpfr_prec = 0, _mpfr_sign = 0, 
          _mpfr_exp = 0, _mpfr_d = 0x0}}}, op = {operator = INTRINSIC_UMINUS, 
      uop = 0x1, op1 = 0x400992e8, op2 = 0x0}, function = {actual = 0x1, 
      name = 0x1 <Address 0x1 out of bounds>, isym = 0x400992e8, esym = 0x0}, 
    character = {length = 1, string = 0x1 <Address 0x1 out of bounds>}, 
    constructor = 0x1}}


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33584