From add995ec117d756e61d207041cd32f937c1a1cd9 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 7 Jan 2024 10:22:19 -0800 Subject: libgfortran: Emit a space at beginning of internal unit NML. PR libgfortran/113223 libgfortran/ChangeLog: * io/write.c (namelist_write): If internal_unit precede with space. gcc/testsuite/ChangeLog: * gfortran.dg/dtio_25.f90: Update. * gfortran.dg/namelist_57.f90: Update. * gfortran.dg/namelist_65.f90: Update. --- libgfortran/io/write.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'libgfortran/io/write.c') diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index a0401fe..49beaee 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -2466,6 +2466,8 @@ namelist_write (st_parameter_dt *dtp) dtp->u.p.nml_delim = '\0'; } + if (is_internal_unit (dtp)) + write_character (dtp, " ", 1, 1, NODELIM); write_character (dtp, "&", 1, 1, NODELIM); /* Write namelist name in upper case - f95 std. */ -- cgit v1.1