FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/38425 (I/O: POS= compile-time diagnostics)

Browse source 
2008-12-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/38425
	* io.c (check_io_constraints): Check constraints on REC=, POS=, and
	internal unit with POS=. Fix punctuation on a few error messages.

From-SVN: r142534
This commit is contained in:
Jerry DeLisle 2008-12-07 01:10:42 +00:00
parent 1dff2af7df
commit f5c64803b9
2 changed files with 19 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2008-12-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/38425
* io.c (check_io_constraints): Check constraints on REC=, POS=, and
internal unit with POS=. Fix punctuation on a few error messages.
2008-12-06 Janus Weil <janus@gcc.gnu.org>
PR fortran/38415

18
gcc/fortran/io.c
View file

@ -2931,6 +2931,10 @@ if (condition) \
io_constraint (dt->rec != NULL,
"REC tag at %L is incompatible with internal file",
&dt->rec->where);
io_constraint (dt->pos != NULL,
"POS tag at %L is incompatible with internal file",
&dt->pos->where);
io_constraint (unformatted,
"Unformatted I/O not allowed with internal unit at %L",
@ -3169,7 +3173,7 @@ if (condition) \
io_constraint (dt->format_expr,
"IO spec-list cannot contain both NAMELIST group name "
"and format specification at %L.",
"and format specification at %L",
&dt->format_expr->where);
io_constraint (dt->format_label,
@ -3178,22 +3182,26 @@ if (condition) \
io_constraint (dt->rec,
"NAMELIST IO is not allowed with a REC= specifier "
"at %L.", &dt->rec->where);
"at %L", &dt->rec->where);
io_constraint (dt->advance,
"NAMELIST IO is not allowed with a ADVANCE= specifier "
"at %L.", &dt->advance->where);
"at %L", &dt->advance->where);
}
if (dt->rec)
{
io_constraint (dt->end,
"An END tag is not allowed with a "
"REC= specifier at %L.", &dt->end_where);
"REC= specifier at %L", &dt->end_where);
io_constraint (dt->format_label == &format_asterisk,
"FMT=* is not allowed with a REC= specifier "
"at %L.", spec_end);
"at %L", spec_end);
io_constraint (dt->pos,
"POS= is not allowed with REC= specifier "
"at %L", &dt->pos->where);
}
if (dt->advance)