blob: 35f6e0fa27d98c37c859101fb1342d22f6798fda (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
! { dg-options "-fdec-static -fdump-tree-original" }
!
subroutine foo
integer, automatic :: a
integer :: b
equivalence (a, b)
a = 5
if (b.ne.5) stop 1
end subroutine
! { dg-final { scan-tree-dump "union" "original" } }
! { dg-final { scan-tree-dump-not "static union" "original" } }
! { dg-final { scan-tree-dump "integer\\(kind=4\\) a" "original" } }
! { dg-final { scan-tree-dump-not "static integer\\(kind=4\\) a" "original" } }
! { dg-final { scan-tree-dump "integer\\(kind=4\\) b" "original" } }
! { dg-final { scan-tree-dump-not "static integer\\(kind=4\\) b" "original" } }
|
