t / t4034 / fortran / poston commit worktree: rename is_worktree_locked to worktree_lock_reason (d236f12)
   1print *, "Hello World?"
   2
   3DO10I = 1,10
   4DO 10 I = 1,10
   5DO 1 0 I = 1,10