gcc/testsuite/gfortran.dg/g77/xformat.f - gcc - Git at Google

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