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 6subroutine 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 29end subroutine 30