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