gcc/testsuite/gfortran.dg/protected_9.f90

   1 ! { dg-do compile }
   2 ! PR fortran/66052
   3 !
   4 !
   5 ! Original code from Gerhard Steinmetz
   6 ! <gerhard dot steinmetz dot fortran at t-online dot de>
   7 module a
   8   contains
   9   protected x   ! { dg-error "only allowed in specification part" }
  10 end module a
  11
  12 program p
  13    contains
  14    protected x  ! { dg-error "only allowed in specification part" }
  15 end