1! { dg-do compile }
2! { dg-options "-O1" }
3! { dg-require-visibility "" }
4!
5! PR fortran/54221
6!
7! Check that the unused PRIVATE "aaaa" variable is optimized away
8!
9
10module m
11  private
12  integer, save :: aaaa
13end module m
14
15! The xfail below has appeared with the introduction of submodules. 'aaaa'
16! now is TREE_PUBLIC but has DECL_VISIBILITY (decl) = VISIBILITY_HIDDEN set.
17
18! { dg-final { scan-assembler-not "aaaa" { xfail *-*-* } } }
19