| ! { dg-do compile } | |
| ! { dg-options "-std=f2008 -Wall -fautomatic -fmax-stack-var-size=100" } | |
| ! PR fortran/98411 - Pointless warning for static variables | |
| module try | |
| implicit none | |
| integer, save :: a(1000) | |
| contains | |
| subroutine initmodule | |
| real, save :: b(1000) | |
| logical :: c(1000) ! { dg-warning "moved from stack to static storage" } | |
| integer :: e(1000) = 1 | |
| a(1) = 42 | |
| b(2) = 3.14 | |
| c(3) = .true. | |
| e(5) = -1 | |
| end subroutine initmodule | |
| end module try |