1      ! { dg-do compile }
2      ! { dg-options "-ffixed-form" }
3      !
4      ! Test errors for %FILL without -fdec-structure.
5      !
6      implicit none
7
8      character(2) %fill ! { dg-error "is a DEC extension" }
9
10      end
11