blob: f4135218d410a6d86f9307a25989c5b2f8ffe060 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fdec-static -fdump-tree-original" }
!
! Neither of the local variable have the automatic attribute so they
! not be allocated on the stack.
subroutine foo
integer, static :: a
integer :: b
equivalence (a, b)
a = 5
if (b.ne.5) stop 1
end subroutine
! { dg-final { scan-tree-dump "static union" "original" } }
! { dg-final { scan-tree-dump "static integer\\(kind=4\\) a" "original" } }
! { dg-final { scan-tree-dump "static integer\\(kind=4\\) b" "original" } }