25 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check that a basic computed goto compiles3 4INTEGER, DIMENSION (2) :: B5 6GOTO (100) 17GOTO (100) I8GOTO (100) I+J9GOTO (100) B(1)10 11GOTO (100, 200) 112GOTO (100, 200) I13GOTO (100, 200) I+J14GOTO (100, 200) B(1)15 16GOTO (100, 200, 300) 117GOTO (100, 200, 300) I18GOTO (100, 200, 300) I+J19GOTO (100, 200, 300) B(1)20 21100 CONTINUE22200 CONTINUE23300 CONTINUE24END25