blob: f3c0ef760f4ba85749bd5d5db03e8346d8781ac8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do compile }
! { dg-options "-O -Warray-temporaries" }
! PR 45744 - this used to ICE because of type mismatch
! in the generated temporary.
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
REAL(4) :: foo(n)
real(4) :: a(n,n), b(n,n)
real(8) :: c(n,n)
integer(4) :: x(n,n)
integer(8) :: bar(n)
mask = (rnd(n) < popcross) ! { dg-warning "Creating array temporary" }
foo = rnd(n) ! { dg-warning "Creating array temporary" }
bar = rnd(n) ! { dg-warning "Creating array temporary" }
c = matmul(a,b) ! { dg-warning "Creating array temporary" }
x = matmul(a,b) ! { dg-warning "Creating array temporary" }
END SUBROUTINE GeneticOptimize
END MODULE m
|
