| ! { dg-do compile } | |
| ! { dg-options "-fdump-tree-original" } | |
| ! PR 52243 - avoid check for reallocation when doing simple | |
| ! assignments with the same variable on both sides. | |
| module foo | |
| contains | |
| elemental function ele(a) | |
| real, intent(in) :: a | |
| real :: ele | |
| ele = 1./(2+a) | |
| end function ele | |
| subroutine bar(a) | |
| real, dimension(:), allocatable :: a | |
| a = a * 2.0 | |
| a = sin(a-0.3) | |
| a = ele(a) | |
| end subroutine bar | |
| end module foo | |
| ! { dg-final { scan-tree-dump-times "alloc" 0 "original" } } |