c { dg-do compile }
       PRINT 10, 2, 3
10     FORMAT (I1, X, I1) ! { dg-warning "Extension: X descriptor" "Extension: X descriptor"  }
       END