[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable

[official-gcc.git] / gcc / testsuite / gfortran.dg / auto_in_equiv_3.f90

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