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 5subroutine 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 28end subroutine 29