From 58b12b2071531b057874498f3fddb3f191d5047f Mon Sep 17 00:00:00 2001 From: David Sagan Date: Thu, 2 Nov 2023 13:27:00 -0400 Subject: [PATCH] Fix for gfortran structure init bug. --- bmad/multiparticle/beam_file_io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bmad/multiparticle/beam_file_io.f90 b/bmad/multiparticle/beam_file_io.f90 index 2639a36949..d9f3f1a7a0 100644 --- 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()