! RUN: %S/test_errors.sh %s %t %f18 | |
! 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 |