Codebase Browser
llvm
Go to App

llvm/flang/test/Semantics/computed-goto01.f90 

! RUN: %python %S/test_errors.py %s %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