Subversion Repositories openrisc

! { 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

! { dg-final { cleanup-modules "m" } }