Merge pull request #614 from bmad-sim/fix/gfort-struct-init-bug

Fix for gfortran structure init bug.
bmad-sim · Nov 2, 2023 · 70954c6 · 70954c6
2 parents d6bace5 + 58b12b2
commit 70954c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bmad/multiparticle/beam_file_io.f90 b/bmad/multiparticle/beam_file_io.f90
@@ -852,7 +852,7 @@ subroutine read_beam_ascii4 (file_name, beam, beam_init, err_flag)
  call reallocate_beam(beam, n_bunch, save = .true.)
  call reallocate_bunch(beam%bunch(n_bunch), 1000)
  bunch => beam%bunch(n_bunch)
- bunch = bunch_struct()
+ bunch = bunch_struct(null(), null(), 0.0_rp, 0.0_rp, 0.0_rp, 0.0_rp, real_garbage$, .false., 0, 0, 0, 0, 0, 0)
 
  p0 = coord_struct()