[Bug fortran/58913] Segmentation fault on real128 array

[rrodrigues at poli dot ufrj.br]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58913

--- Comment #5 from Rodrigo Rodrigues <rrodrigues at poli dot ufrj.br> ---
There is no compile error. Adding -g for running doesn't show any new
information, just the same:

Program received signal SIGSEGV: Segmentation Fault - invalid memory reference.

Backtrace for this error:
#0 ffffffff


The dump file have:

MAIN__ ()
{
  real(kind=16) a[2];

  {
    static real(kind=16) A.0[2] = {0.0, 1.0e+0};

    (void) (MEM[(c_char * {ref-all})&a] = MEM[(c_char * {ref-all})&A.0]);
    {
      struct __st_parameter_dt dt_parm.1;

      dt_parm.1.common.filename = &"main.f90"[1]{lb: 1 sz: 1};
      dt_parm.1.common.line = 5;
      dt_parm.1.common.flags = 128;
      dt_parm.1.common.unit = 6;
      _gfortran_st_write (&dt_parm.1);
      {
        struct array1_real(kind=16) parm.2;

        parm.2.dtype = 1049;
        parm.2.dim[0].lbound = 1;
        parm.2.dim[0].ubound = 2;
        parm.2.dim[0].stride = 1;
        parm.2.data = (void *) &a[0];
        parm.2.offset = -1;
        _gfortran_transfer_array_write (&dt_parm.1, &parm.2, 16, 0);
      }
      _gfortran_st_write_done (&dt_parm.1);
    }
  }
}


main (integer(kind=4) argc, character(kind=1) * * argv)
{
  static integer(kind=4) options.3[7] = {68, 1023, 0, 0, 1, 1, 0};

  _gfortran_set_args (argc, argv);
  _gfortran_set_options (7, &options.3[0]);
  MAIN__ ();
  return 0;
}