| ! RUN: %flang_fc1 -E -fno-reformat -pedantic %s 2>&1 | FileCheck %s | |
| ! CHECK: Label digit is not in fixed-form label field | |
| 1 continue | |
| ! CHECK: Label digit is not in fixed-form label field | |
| 1 2 continue | |
| ! CHECK-NOT: Label is not in fixed-form label field | |
| con | |
| 3 tinue | |
| ! CHECK: Character in fixed-form label field must be a digit | |
| end | |
| ! CHECK: 1continue | |
| ! CHECK: 12continue | |
| ! CHECK: continue | |
| ! CHECK: end |