| ! { 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 *-*-* } } } |