flang/test/Semantics/symbol12.f90

   1 ! RUN: %S/test_symbols.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 ! Verify that SAVE attribute is propagated by EQUIVALENCE
   4
   5 !DEF: /s1 (Subroutine) Subprogram
   6 subroutine s1
   7  !DEF: /s1/a SAVE ObjectEntity REAL(4)
   8  !DEF: /s1/b SAVE ObjectEntity REAL(4)
   9  !DEF: /s1/c SAVE ObjectEntity REAL(4)
  10  !DEF: /s1/d SAVE ObjectEntity REAL(4)
  11  real a, b, c, d
  12  !REF: /s1/d
  13  save :: d
  14  !REF: /s1/a
  15  !REF: /s1/b
  16  equivalence(a, b)
  17  !REF: /s1/b
  18  !REF: /s1/c
  19  equivalence(b, c)
  20  !REF: /s1/c
  21  !REF: /s1/d
  22  equivalence(c, d)
  23  !DEF: /s1/e ObjectEntity INTEGER(4)
  24  !DEF: /s1/f ObjectEntity INTEGER(4)
  25  equivalence(e, f)
  26  !REF: /s1/e
  27  !REF: /s1/f
  28  integer e, f
  29 end subroutine