15 lines · plain
1! RUN: %flang_fc1 -E -fno-reformat -pedantic %s 2>&1 | FileCheck %s2! CHECK: Label digit is not in fixed-form label field3 1 continue4! CHECK: Label digit is not in fixed-form label field5 1 2 continue6! CHECK-NOT: Label is not in fixed-form label field7 con8 3 tinue9! CHECK: Character in fixed-form label field must be a digit10end11! CHECK: 1continue12! CHECK: 12continue13! CHECK: continue14! CHECK: end15