29 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Verify that SAVE attribute is propagated by EQUIVALENCE3 4!DEF: /s1 (Subroutine) Subprogram5subroutine s16 !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, d11 !REF: /s1/d12 save :: d13 !REF: /s1/a14 !REF: /s1/b15 equivalence(a, b)16 !REF: /s1/b17 !REF: /s1/c18 equivalence(b, c)19 !REF: /s1/c20 !REF: /s1/d21 equivalence(c, d)22 !DEF: /s1/e ObjectEntity INTEGER(4)23 !DEF: /s1/f ObjectEntity INTEGER(4)24 equivalence(e, f)25 !REF: /s1/e26 !REF: /s1/f27 integer e, f28end subroutine29