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" } }