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