164ab3302SCarolineConcatto! Tests implemented for this standard 2*80f0bb59SPeter Klausler! 11.1.4 - 4 It is permissible to branch to an end-block-stmt only within its 364ab3302SCarolineConcatto! Block Construct 464ab3302SCarolineConcatto 5*80f0bb59SPeter Klausler! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s 69eab0da1Speter klausler! CHECK: Label '20' is in a construct that prevents its use as a branch target here 764ab3302SCarolineConcatto 864ab3302SCarolineConcattosubroutine s1 964ab3302SCarolineConcatto block 1064ab3302SCarolineConcatto goto (10) 1 1164ab3302SCarolineConcatto10 end block 1264ab3302SCarolineConcatto 1364ab3302SCarolineConcatto block 1464ab3302SCarolineConcatto20 end block 1564ab3302SCarolineConcattoend 1664ab3302SCarolineConcatto 1764ab3302SCarolineConcattosubroutine s2 1864ab3302SCarolineConcatto block 1964ab3302SCarolineConcatto goto (20) 1 2064ab3302SCarolineConcatto10 end block 2164ab3302SCarolineConcatto 2264ab3302SCarolineConcatto block 2364ab3302SCarolineConcatto20 end block 2464ab3302SCarolineConcattoend 2564ab3302SCarolineConcatto 2664ab3302SCarolineConcattosubroutine s3 2764ab3302SCarolineConcatto block 2864ab3302SCarolineConcatto block 2964ab3302SCarolineConcatto goto (10) 1 3064ab3302SCarolineConcatto10 end block 3164ab3302SCarolineConcatto20 end block 3264ab3302SCarolineConcattoend 3364ab3302SCarolineConcatto 3464ab3302SCarolineConcattosubroutine s4 3564ab3302SCarolineConcatto block 3664ab3302SCarolineConcatto block 3764ab3302SCarolineConcatto goto (20) 1 3864ab3302SCarolineConcatto10 end block 3964ab3302SCarolineConcatto20 end block 4064ab3302SCarolineConcattoend 41