flang/test/Semantics/if_arith03.f90

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