gcc/testsuite/gfortran.dg/public_private_module_6.f90

   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
  10 module m
  11   private
  12   integer, save :: aaaa
  13 end 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 *-*-* } } }