segfault when reopening event file

[fbach]

Trying to reopen an existing event file in a Whizard run (e.g. to increase the number of generated events for a given process) results in a segfault, cf. foo.sin attached.

[Juergen Reuter]

Confirmed. But I guess it does make no sense to tackle this one before #468 is done :(

[Juergen Reuter]

This is the backtrace:

Program received signal SIGSEGV, Segmentation fault.
processes::process_set_sqme (process=..., sqme=0.012593754498078411, i=<error reading variable: Cannot access memory at address 0x0>) at processes.f90:2910
2910        process%kinematics_out(i)%sqme = sqme
(gdb) bt
#0  processes::process_set_sqme (process=..., sqme=0.012593754498078411, i=<error reading variable: Cannot access memory at address 0x0>) at processes.f90:2910
#1  0x00007ffff69de7de in simulations::simulation_read_event_raw (sim=..., ok=.TRUE., verbose=.TRUE.) at simulations.f90:898
#2  0x00007ffff69e1b0b in simulations::simulation_event (sim=..., rng=..., ok=.TRUE., os_data=..., verbose=<optimized out>) at simulations.f90:1279
#3  0x00007ffff6a2ad11 in commands::cmd_simulate_execute (simulate=..., global=...) at commands.f90:5530
#4  0x00007ffff6a20c4f in commands::command_list_execute (cmd_list=..., global=...) at commands.f90:6418
#5  0x00007ffff6a2f342 in whizard::whizard_process_stream (stream=..., lexer=..., quit=.FALSE., quit_code=0) at whizard.f90:331
#6  0x00007ffff6a2fc31 in whizard::whizard_process_file (file=..., quit=.FALSE., quit_code=0) at whizard.f90:309
#7  0x00007ffff7d9023f in MAIN__ () at main.f90:353
#8  0x00007ffff7d9101f in main (argc=<optimized out>, argv=<optimized out>) at main.f90:30
#9  0x0000003b3601ecdd in __libc_start_main () from /lib64/libc.so.6
#10 0x0000000000400659 in _start ()

[fbach]

defect non-existent in release 2.1.1

[Juergen Reuter]

Corrected in r4074. Trivial typo:

===================================================================
--- src/whizard-core/whizard.nw	(revision 4073)
+++ src/whizard-core/whizard.nw	(working copy)
@@ -84015,7 +84015,7 @@
     integer, intent(in), optional :: i
     integer :: idx
     idx = 1; if (present (i)) idx = i
-    process%kinematics_out(i)%sqme = sqme
+    process%kinematics_out(idx)%sqme = sqme
   end subroutine process_set_sqme
 
 @ %def process_set_scale