https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87359
--- Comment #27 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Interesting: when I run with checking flags, I get the following error:
At line 532 of file evt_nlo.f90
Fortran runtime error: Array bound mismatch for dimension 1 of array
'event_deps' (0/2)
However, I have been running also with these flags since ages, and this never
raised a problem!?
The problem seems indeed to happen in the module src/transforms/evt_nlo.f90
in the following
subroutine subroutine evt_nlo_setup_real_event_kinematics (evt,
process_instance)
class(evt_nlo_t), intent(inout) :: evt
type(process_instance_t), intent(in) :: process_instance
integer :: n_real, n_phs
integer :: i_real
print *, "inside evt_nlo_setup_real_event_kinematics"
associate (event_deps => evt%event_deps)
select type (pcm => process_instance%pcm)
class is (pcm_instance_nlo_t)
n_real = pcm%get_n_real ()
end select
print *, "n_real = ", n_real
i_real = evt%process%get_first_real_term ()
print *, "first real term = ", i_real
select type (phs => process_instance%term(i_real)%k_term%phs)
type is (phs_fks_t)
print *, "size (identif.) = ", size (phs%phs_identifiers)
event_deps%phs_identifiers = phs%phs_identifiers
end select
n_phs = size (event_deps%phs_identifiers)
print *, "n_phs = ", n_phs
call event_deps%p_real_cms%init (n_real, n_phs)
print *, "init p_real_cms"
call event_deps%p_real_lab%init (n_real, n_phs)
print *, "init p_real_lab"
select type (pcm => process_instance%pcm)
type is (pcm_instance_nlo_t)
select type (config => pcm%config)
type is (pcm_nlo_t)
if (allocated (config%region_data%alr_contributors)) then
allocate (event_deps%contributors (size
(config%region_data%alr_contributors)))
event_deps%contributors = config%region_data%alr_contributors
print *, size (config%region_data%alr_contributors)
end if
if (allocated (config%region_data%alr_to_i_contributor)) then
allocate (event_deps%alr_to_i_con &
(size (config%region_data%alr_to_i_contributor)))
event_deps%alr_to_i_con =
config%region_data%alr_to_i_contributor
end if
end select
end select
end associate
end subroutine evt_nlo_setup_real_event_kinematics
