gcc/testsuite/gfortran.dg/dec_static_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "" }
   3 !
   4 ! Check errors for use of STATIC/AUTOMATIC without -fdec-static.
   5 !
   6
   7 subroutine s()
   8   implicit none
   9   integer, automatic :: a ! { dg-error "is a DEC extension" }
  10   integer, static :: b ! { dg-error "is a DEC extension" }
  11   integer, save :: c
  12
  13   integer :: auto1, auto2, static1, static2, save1, save2
  14   automatic auto1 ! { dg-error "is a DEC extension" }
  15   automatic :: auto2 ! { dg-error "is a DEC extension" }
  16   static static1 ! { dg-error "is a DEC extension" }
  17   static :: static2 ! { dg-error "is a DEC extension" }
  18   save save1
  19   save :: save2
  20 end subroutine