1! RUN: %S/test_errors.sh %s %t %flang_fc1 2! REQUIRES: shell 3! Check that a basic computed goto compiles 4 5INTEGER, DIMENSION (2) :: B 6 7GOTO (100) 1 8GOTO (100) I 9GOTO (100) I+J 10GOTO (100) B(1) 11 12GOTO (100, 200) 1 13GOTO (100, 200) I 14GOTO (100, 200) I+J 15GOTO (100, 200) B(1) 16 17GOTO (100, 200, 300) 1 18GOTO (100, 200, 300) I 19GOTO (100, 200, 300) I+J 20GOTO (100, 200, 300) B(1) 21 22100 CONTINUE 23200 CONTINUE 24300 CONTINUE 25END 26