flang/test/Parser/badlabel.f

   1 ! RUN: %flang_fc1 -E -fno-reformat %s 2>&1 | FileCheck %s
   2 ! CHECK: Label digit is not in fixed-form label field
   3       1 continue
   4 ! CHECK: Label digit is not in fixed-form label field
   5  1    2 continue
   6 ! CHECK-NOT: Label is not in fixed-form label field
   7       con
   8      3 tinue
   9 ! CHECK: Character in fixed-form label field must be a digit
  10 end
  11 ! CHECK: 1continue
  12 ! CHECK: 12continue
  13 ! CHECK: continue
  14 ! CHECK: end