41 lines · plain
1! Tests implemented for this standard2! 11.1.4 - 4 It is permissible to branch to an end-block-stmt only within its3! Block Construct4 5! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s6! CHECK: Label '20' is in a construct that prevents its use as a branch target here7 8subroutine s19 block10 goto (10) 11110 end block12 13 block1420 end block15end16 17subroutine s218 block19 goto (20) 12010 end block21 22 block2320 end block24end25 26subroutine s327 block28 block29 goto (10) 13010 end block3120 end block32end33 34subroutine s435 block36 block37 goto (20) 13810 end block3920 end block40end41