26330a0c7c
In fixed form source, complain when a label digit appears outside the label field & when a non-digit appears in the label field. Reviewed By: sscalpone Differential Revision: https://reviews.llvm.org/D84283
15 lines
390 B
Fortran
15 lines
390 B
Fortran
! RUN: %f18 -E %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
|