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