[Bug fortran/45744] internal compiler error: in gfc_conv_expr_op, at fortran/trans-expr.c:1366

[jpr at csc dot fi]

------- Comment #2 from jpr at csc dot fi  2010-09-22 04:52 -------
somewhat simpler testcase:

MODULE m
CONTAINS
  FUNCTION rnd(n)
    INTEGER, INTENT(in) :: n
    REAL(8), DIMENSION(n) :: rnd
    CALL RANDOM_NUMBER(rnd)
  END FUNCTION rnd

  SUBROUTINE GeneticOptimize(n)
    INTEGER :: n
    LOGICAL :: mask(n)
    REAL(8) :: popcross=0
    mask = (rnd(n) < popcross)
  END SUBROUTINE GeneticOptimize
END MODULE m


-- 


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