Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-Warray-temporaries -O" }

module foo

  implicit none

contains

  pure function bar(i,j)

    integer, intent(in) :: i,j

    integer, dimension(2,2) :: bar

    bar = 33

  end function bar

end module foo

program main

  use foo

  implicit none

  integer a(2,2), b(2,2),c(2,2), d(2,2), e(2)

  read (*,*) b, c, d

  a = matmul(b,c) + d

  a = b + bar(3,4)

  a = bar(3,4)*5 + b

  e = sum(b,1) + 3

end program main

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