This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Massive failures
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: "DeLisle, Jerry V" <Jerry_V_DeLisle at RL dot gov>
- Cc: fortran at gcc dot gnu dot org
- Date: Wed, 12 Apr 2006 14:29:21 -0700
- Subject: Re: Massive failures
- References: <A7E4CB800B73A2409E113012513E0394023522@EX1V.rl.gov>
On Wed, Apr 12, 2006 at 12:50:39PM -0700, DeLisle, Jerry V wrote:
> I don't think its anything Jakub and I have done. I won't have time to
> look around until tonight. Any more data available on this?
>
For whatever reason, internal writes appear to be broken.
troutmask:sgk[204] cat a.f90
program a
character(len=80) b
write(b,'(A)') 'hello'
! write(*,'(A)') 'hello' ! <--- This works.
end program a
troutmask:sgk[205] gfc41 -o a a.f90
troutmask:sgk[206] ./a
Bus error (core dumped)
MAIN__ ()
{
char b[1:80];
_gfortran_set_std (70, 127, 0);
{
struct __st_parameter_dt dt_parm.0;
dt_parm.0.common.filename = "a.f90";
dt_parm.0.common.line = 3;
dt_parm.0.internal_unit = &b;
dt_parm.0.internal_unit_len = 80;
dt_parm.0.internal_unit_desc = 0B;
dt_parm.0.common.unit = 0;
dt_parm.0.format = "(A)";
dt_parm.0.format_len = 3;
dt_parm.0.common.flags = 20480;
_gfortran_st_write (&dt_parm.0);
_gfortran_transfer_character (&dt_parm.0, "hello", 5);
_gfortran_st_write_done (&dt_parm.0);
}
}
--
Steve