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