      ! { dg-do compile }
      ! { dg-options "-ffixed-form" }
      !
      ! Test errors for %FILL without -fdec-structure.
      !
      implicit none

      character(2) %fill ! { dg-error "is a DEC extension" }

      end