! RUN: %S/test_errors.sh %s %t %flang_fc1
! Check that a basic computed goto compiles

INTEGER, DIMENSION (2) :: B

GOTO (100) 1
GOTO (100) I
GOTO (100) I+J
GOTO (100) B(1)

GOTO (100, 200) 1
GOTO (100, 200) I
GOTO (100, 200) I+J
GOTO (100, 200) B(1)

GOTO (100, 200, 300) 1
GOTO (100, 200, 300) I
GOTO (100, 200, 300) I+J
GOTO (100, 200, 300) B(1)

100 CONTINUE
200 CONTINUE
300 CONTINUE
END