gcc/testsuite/gfortran.dg/public_private_module_6.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O1" }
   3 !
   4 ! PR fortran/54221
   5 !
   6 ! Check that the unused PRIVATE "aaaa" variable is optimized away
   7 !
   8
   9 module m
  10   private
  11   integer, save :: aaaa
  12 end module m
  13
  14 ! { dg-final { scan-assembler-not "aaaa" } }