git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Jerry DeLisle 2024-01-07 10:22:19 -08:00
parent 0a8aba760f
commit add995ec11
4 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/testsuite/gfortran.dg/dtio_25.f90
View File

@ -50,7 +50,7 @@ program p
namelist /nml/ x namelist /nml/ x
x = t('a', 5) x = t('a', 5)
write (buffer, nml) write (buffer, nml)
if (buffer.ne.'&NML X=a, 5 /') STOP 1 if (buffer.ne.' &NML X=a, 5 /') STOP 1
x = t('x', 0) x = t('x', 0)
read (buffer, nml) read (buffer, nml)
if (x%c.ne.'a'.or. x%k.ne.5) STOP 2 if (x%c.ne.'a'.or. x%k.ne.5) STOP 2

2
gcc/testsuite/gfortran.dg/namelist_57.f90
View File

@ -6,7 +6,7 @@
n = 123 n = 123
line = "" line = ""
write(line,nml=stuff) write(line,nml=stuff)
if (line(1) .ne. "&STUFF") STOP 1 if (line(1) .ne. " &STUFF") STOP 1
if (line(2) .ne. " N=123 ,") STOP 2 if (line(2) .ne. " N=123 ,") STOP 2
if (line(3) .ne. " /") STOP 3 if (line(3) .ne. " /") STOP 3
end end

2
gcc/testsuite/gfortran.dg/namelist_65.f90
View File

@ -13,7 +13,7 @@ do i=1,len(out)
enddo enddo
write(out,nl1) write(out,nl1)
if (out(1).ne."&NL1") STOP 1 if (out(1).ne." &NL1") STOP 1
if (out(2).ne." A= 1.00000000 ,") STOP 2 if (out(2).ne." A= 1.00000000 ,") STOP 2
if (out(3).ne." B= 2.00000000 ,") STOP 3 if (out(3).ne." B= 2.00000000 ,") STOP 3
if (out(4).ne." C= 3.00000000 ,") STOP 4 if (out(4).ne." C= 3.00000000 ,") STOP 4

2
libgfortran/io/write.c
View File

@ -2466,6 +2466,8 @@ namelist_write (st_parameter_dt *dtp)
dtp->u.p.nml_delim = '\0'; dtp->u.p.nml_delim = '\0';
} }
if (is_internal_unit (dtp))
write_character (dtp, " ", 1, 1, NODELIM);
write_character (dtp, "&", 1, 1, NODELIM); write_character (dtp, "&", 1, 1, NODELIM);
/* Write namelist name in upper case - f95 std. */ /* Write namelist name in upper case - f95 std. */