Fortran/gfortran/regression/block_17.f90 - llvm-test-suite - Git at Google

 subroutine foo()
   block
   end block
 end

 subroutine bar()
   my_name: block
   end block my_name
 end
	subroutine foo()
	block
	end block
	end

	subroutine bar()
	my_name: block
	end block my_name
	end