[EMAIL PROTECTED] tests]$ cat f2c_6.f90
complex :: z, p
z = (2.,0.)
if (p /= z) call abort ()
end
[EMAIL PROTECTED] tests]$ ~/src/gcc-new/build/gcc/f951 f2c_6.f90 -O
MAIN__
unhandled expression in get_expr_operands():
<truth_orif_expr 0xb7cc2288
type <boolean_type 0xb7cd05e8 logical4 public unsigned SI
size <integer_cst 0xb7cbc3f0 constant invariant 32>
unit size <integer_cst 0xb7cbc180 constant invariant 4>
align 32 symtab 0 alias set -1 precision 1 min <integer_cst 0xb7cbc978
0> max <integer_cst 0xb7cbc9a8 1>>
side-effects
arg 0 <ne_expr 0xb7cc2264 type <boolean_type 0xb7cd05e8 logical4>
side-effects
arg 0 <realpart_expr 0xb7cfcbe0 type <real_type 0xb7cc3d14 real4>
side-effects
arg 0 <save_expr 0xb7cfcbc0 type <complex_type 0xb7cd00d8 complex4>
side-effects invariant
arg 0 <ssa_name 0xb7cc83a8 type <complex_type 0xb7cd00d8
complex4>
visited var <var_decl 0xb7d005e8 p> def_stmt <nop_expr
0xb7cfcac0>
version 2>>>
arg 1 <real_cst 0xb7cfeba0 type <real_type 0xb7cc3d14 real4>
constant invariant 2.0e+0>>
arg 1 <ne_expr 0xb7cc2240 type <boolean_type 0xb7cd05e8 logical4>
side-effects
arg 0 <imagpart_expr 0xb7cfcc00 type <real_type 0xb7cc3d14 real4>
side-effects arg 0 <save_expr 0xb7cfcbc0>>
arg 1 <real_cst 0xb7cfebd0 type <real_type 0xb7cc3d14 real4>
constant invariant 0.0>>>
f2c_6.f90:3: internal compiler error: internal error
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
[EMAIL PROTECTED] tests]$
--
Summary: Flaot comparison broken
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Keywords: ice-on-valid-code
Severity: normal
Priority: P2
Component: middle-end
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: tobi at gcc dot gnu dot org
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22035
