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