flang/test/Semantics/computed-goto01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Check that a basic computed goto compiles
   3
   4 INTEGER, DIMENSION (2) :: B
   5
   6 GOTO (100) 1
   7 GOTO (100) I
   8 GOTO (100) I+J
   9 GOTO (100) B(1)
  10
  11 GOTO (100, 200) 1
  12 GOTO (100, 200) I
  13 GOTO (100, 200) I+J
  14 GOTO (100, 200) B(1)
  15
  16 GOTO (100, 200, 300) 1
  17 GOTO (100, 200, 300) I
  18 GOTO (100, 200, 300) I+J
  19 GOTO (100, 200, 300) B(1)
  20
  21 100 CONTINUE
  22 200 CONTINUE
  23 300 CONTINUE
  24 END