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