mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-29 14:54:05 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

re PR fortran/16404 (should reject invalid code with -pedantic -std=f95 ? (x8))

Browse Source 
PR fortran/16404
* match.c (gfc_match_program): A program name is obligatory.
(gfc_match_return): RETURN in main program is an extension.
(gfc_match_block_data): A space is required before a block data
name.

From-SVN: r84511
This commit is contained in:
Tobias Schlüter 2004-07-11 16:16:32 +02:00 committed by Tobias Schlüter
parent cdde7b65fa
commit e08b5a758a
2 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -6,6 +6,12 @@
PR fortran/16404
* io.c (match_io): Flag 'WRITE(...), ...' as extension.
PR fortran/16404
* match.c (gfc_match_program): A program name is obligatory.
(gfc_match_return): RETURN in main program is an extension.
(gfc_match_block_data): A space is required before a block data
name.
2004-07-11 Joseph S. Myers <jsm@polyomino.org.uk>

15
gcc/fortran/match.c
View File

@ -791,7 +791,7 @@ not_yes:
/*********************** Statement level matching **********************/
/* Matches the start of a program unit, which is the program keyword
followed by an optional symbol. */
followed by an obligatory symbol. */
match
gfc_match_program (void)
@ -799,10 +799,6 @@ gfc_match_program (void)
gfc_symbol *sym;
match m;
m = gfc_match_eos ();
if (m == MATCH_YES)
return m;
m = gfc_match ("% %s%t", &sym);
if (m == MATCH_NO)
@ -1897,6 +1893,13 @@ gfc_match_return (void)
{
gfc_expr *e;
match m;
gfc_compile_state s;
gfc_enclosing_unit (&s);
if (s == COMP_PROGRAM
&& gfc_notify_std (GFC_STD_GNU, "RETURN statement in a main "
"program at %C is an extension.") == FAILURE)
return MATCH_ERROR;
e = NULL;
if (gfc_match_eos () == MATCH_YES)
@ -2295,7 +2298,7 @@ gfc_match_block_data (void)
return MATCH_YES;
}
m = gfc_match (" %n%t", name);
m = gfc_match ("% %n%t", name);
if (m != MATCH_YES)
return MATCH_ERROR;