*> { dg-do run { xfail *-*-* } }
IDENTIFICATION DIVISION.
PROGRAM-ID. fail.
ENVIRONMENT DIVISION.
PROCEDURE DIVISION.
    STOP RUN ERROR 1.