llvm-project/flang/test/Semantics/label14.f90

42 lines
586 B
Fortran

! RUN: %S/test_any.sh %s %flang %t
! Tests implemented for this standard
! 11.1.4 - 4 It is permissible to branch to and end-block-stmt only withinh its
! Block Construct
! EXEC: ${F18} %s 2>&1 | ${FileCheck} %s
! CHECK: Label '20' is not in scope
subroutine s1
block
goto (10) 1
10 end block
block
20 end block
end
subroutine s2
block
goto (20) 1
10 end block
block
20 end block
end
subroutine s3
block
block
goto (10) 1
10 end block
20 end block
end
subroutine s4
block
block
goto (20) 1
10 end block
20 end block
end