! { dg-do compile }
! { dg-options "-O1" }
! { dg-require-visibility "" }
!
! PR fortran/54221
!
! Check that the unused PRIVATE "aaaa" variable is optimized away
!

module m
  private
  integer, save :: aaaa
end module m

! The xfail below has appeared with the introduction of submodules. 'aaaa'
! now is TREE_PUBLIC but has DECL_VISIBILITY (decl) = VISIBILITY_HIDDEN set.

! { dg-final { scan-assembler-not "aaaa" { xfail *-*-* } } }