1*eabae4cfSIvan Zhechev! RUN: %python %S/test_symbols.py %s %flang_fc1 264ab3302SCarolineConcatto! Verify that SAVE attribute is propagated by EQUIVALENCE 364ab3302SCarolineConcatto 464ab3302SCarolineConcatto!DEF: /s1 (Subroutine) Subprogram 564ab3302SCarolineConcattosubroutine s1 664ab3302SCarolineConcatto !DEF: /s1/a SAVE ObjectEntity REAL(4) 764ab3302SCarolineConcatto !DEF: /s1/b SAVE ObjectEntity REAL(4) 864ab3302SCarolineConcatto !DEF: /s1/c SAVE ObjectEntity REAL(4) 964ab3302SCarolineConcatto !DEF: /s1/d SAVE ObjectEntity REAL(4) 1064ab3302SCarolineConcatto real a, b, c, d 1164ab3302SCarolineConcatto !REF: /s1/d 1264ab3302SCarolineConcatto save :: d 1364ab3302SCarolineConcatto !REF: /s1/a 1464ab3302SCarolineConcatto !REF: /s1/b 1564ab3302SCarolineConcatto equivalence(a, b) 1664ab3302SCarolineConcatto !REF: /s1/b 1764ab3302SCarolineConcatto !REF: /s1/c 1864ab3302SCarolineConcatto equivalence(b, c) 1964ab3302SCarolineConcatto !REF: /s1/c 2064ab3302SCarolineConcatto !REF: /s1/d 2164ab3302SCarolineConcatto equivalence(c, d) 2264ab3302SCarolineConcatto !DEF: /s1/e ObjectEntity INTEGER(4) 2364ab3302SCarolineConcatto !DEF: /s1/f ObjectEntity INTEGER(4) 2464ab3302SCarolineConcatto equivalence(e, f) 2564ab3302SCarolineConcatto !REF: /s1/e 2664ab3302SCarolineConcatto !REF: /s1/f 2764ab3302SCarolineConcatto integer e, f 2864ab3302SCarolineConcattoend subroutine 29