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