gcc/testsuite/gfortran.dg/dec_static_3.f90

! { dg-do compile }
! { dg-options "" }
!
! Check errors for use of STATIC/AUTOMATIC without -fdec-static.
!

subroutine s()
  implicit none
  integer, automatic :: a ! { dg-error "is a DEC extension" }
  integer, static :: b ! { dg-error "is a DEC extension" }
  integer, save :: c

  integer :: auto1, auto2, static1, static2, save1, save2
  automatic auto1 ! { dg-error "is a DEC extension" }
  automatic :: auto2 ! { dg-error "is a DEC extension" }
  static static1 ! { dg-error "is a DEC extension" }
  static :: static2 ! { dg-error "is a DEC extension" }
  save save1
  save :: save2
end subroutine