xref: /llvm-project/flang/test/Semantics/modfile58.f90 (revision 1db42fa6f07838365e34d7d05df3c8b7287be176)
1*1db42fa6SSlava Zakharin! RUN: %python %S/test_modfile.py %s %flang_fc1
2*1db42fa6SSlava Zakharin
3*1db42fa6SSlava Zakharin! Test that the implicit SAVE attribute (set
4*1db42fa6SSlava Zakharin! for the equivalenced symbols) is not written
5*1db42fa6SSlava Zakharin! into the mod file.
6*1db42fa6SSlava Zakharinmodule implicit_save
7*1db42fa6SSlava Zakharin  real dx,dy
8*1db42fa6SSlava Zakharin  common /blk/ dx
9*1db42fa6SSlava Zakharin  equivalence(dx,dy)
10*1db42fa6SSlava Zakharinend module implicit_save
11*1db42fa6SSlava Zakharin
12*1db42fa6SSlava Zakharin!Expect: implicit_save.mod
13*1db42fa6SSlava Zakharin!moduleimplicit_save
14*1db42fa6SSlava Zakharin!real(4)::dx
15*1db42fa6SSlava Zakharin!real(4)::dy
16*1db42fa6SSlava Zakharin!common/blk/dx
17*1db42fa6SSlava Zakharin!equivalence(dx,dy)
18*1db42fa6SSlava Zakharin!end
19