------- Comment #6 from burnus at gcc dot gnu dot org 2006-11-28 18:04 ------- Reduced testcase:
PROGRAM fparser IMPLICIT NONE CHARACTER (LEN=1), DIMENSION(3:7), PARAMETER :: Ops = & (/ '+', '-', '*', '/', '^' /) CHARACTER (LEN=3) :: F = "ABC" IF (ANY(F(2:2) == Ops(5:6))) STOP END PROGRAM fparser Backtrace: #0 0x000000000041cd1b in simplify_const_ref (p=0xdee450) at expr.c:1238 #1 0x000000000041d4e5 in gfc_simplify_expr (p=0xdee450, type=0) at expr.c:1546 #2 0x000000000041da97 in simplify_parameter_variable (p=0xdeecb0, type=0) at expr.c:1421 #3 0x000000000041d4c1 in gfc_simplify_expr (p=0xdefd10, type=0) at expr.c:1517 -- burnus at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |burnus at gcc dot gnu dot | |org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29975