2 ! { dg-options "-O -Warray-temporaries" }
3 ! PR 45744 - this used to ICE because of type mismatch
4 ! in the generated temporary.
8 INTEGER, INTENT(in
) :: n
9 REAL(8), DIMENSION(n
) :: rnd
10 CALL RANDOM_NUMBER(rnd
)
13 SUBROUTINE GeneticOptimize(n
)
18 real(4) :: a(n
,n
), b(n
,n
)
22 mask
= (rnd(n
) < popcross
) ! { dg-warning "Creating array temporary" }
23 foo
= rnd(n
) ! { dg-warning "Creating array temporary" }
24 bar
= rnd(n
) ! { dg-warning "Creating array temporary" }
25 c
= matmul(a
,b
) ! { dg-warning "Creating array temporary" }
26 x
= matmul(a
,b
) ! { dg-warning "Creating array temporary" }
27 END SUBROUTINE GeneticOptimize