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