xplor-nih segfaults

[Jerry DeLisle]

Here is -fdump-tree-original of dt block for the write statement that is 
faulting.  I do not know enough to say this is correct.  &(*x)  does this mean 
the value at the address pointed to by x? ? ? ?

Jerry

_gfortran_filename = "coorio.f";
_gfortran_line = 213;
_gfortran_ioparm.unit = unit;
_gfortran_ioparm.format = "(A,I5,1X,A4,1X,A4,A1,A5,3X,3F8.3,2F6.2,6X,A4)";
_gfortran_ioparm.format_len = 45;
_gfortran_st_write ();
_gfortran_transfer_character ("ATOM  ", 6);
_gfortran_transfer_integer (&i, 4);
_gfortran_transfer_character (&name, 4);
_gfortran_transfer_character (&(*res)[NON_LVALUE_EXPR <i> + -1], 4);
_gfortran_transfer_character (&(*iac)[NON_LVALUE_EXPR <i> + -1], 1);
_gfortran_transfer_character (&a, 5);
_gfortran_transfer_real (&(*x)[NON_LVALUE_EXPR <i> + -1], 8);
_gfortran_transfer_real (&(*y)[NON_LVALUE_EXPR <i> + -1], 8);
_gfortran_transfer_real (&(*z)[NON_LVALUE_EXPR <i> + -1], 8);
_gfortran_transfer_real (&(*qmain)[NON_LVALUE_EXPR <i> + -1], 8);
_gfortran_transfer_real (&(*wmain)[NON_LVALUE_EXPR <i> + -1], 8);
_gfortran_transfer_character (&(*segid)[NON_LVALUE_EXPR <i> + -1], 4);
_gfortran_st_write_done ();