flang/test/Semantics/if_arith03.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2
   3 !ERROR: Label '600' was not found
   4 if ( A ) 100, 200, 600
   5 100 CONTINUE
   6 200 CONTINUE
   7 300 CONTINUE
   8
   9 !ERROR: Label '601' was not found
  10 if ( A ) 101, 601, 301
  11 101 CONTINUE
  12 201 CONTINUE
  13 301 CONTINUE
  14
  15 !ERROR: Label '602' was not found
  16 if ( A ) 602, 202, 302
  17 102 CONTINUE
  18 202 CONTINUE
  19 302 CONTINUE
  20
  21 END