gcc/testsuite/gfortran.dg/pr98411.f90

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