gcc/testsuite/gfortran.dg/auto_in_equiv_7.f90

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