Fix for gfortran structure init bug.

bmad-sim · Nov 2, 2023 · 58b12b2 · 58b12b2
1 parent d6bace5
commit 58b12b2
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()