flang/test/Semantics/symbol12.f90

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