program trailing_semicolon_in_end_scope
  integer :: i
  do i=1, 3
      print *, "Hello World!"
  end do;
end program trailing_semicolon_in_end_scope
