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

Fix logic error in Fortran OpenACC parsing 

gcc/fortran/
	* parse.c (parse_oacc_structured_block): Fix logic error.
	Reported by Mikael Morin <mikael.morin@sfr.fr>.

From-SVN: r226246
This commit is contained in:
Thomas Schwinge 2015-07-27 16:26:41 +02:00 committed by Thomas Schwinge
parent 39c1254139
commit 02bcdc56ee
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2015-07-27 Thomas Schwinge <thomas@codesourcery.com>
* parse.c (parse_oacc_structured_block): Fix logic error.
Reported by Mikael Morin <mikael.morin@sfr.fr>.
2015-07-24 Mikael Morin <mikael@gcc.gnu.org> 2015-07-24 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/64986 PR fortran/64986

6
gcc/fortran/parse.c
View File

@ -4383,8 +4383,10 @@ parse_oacc_structured_block (gfc_statement acc_st)
if (st == ST_NONE) if (st == ST_NONE)
unexpected_eof (); unexpected_eof ();
else if (st != acc_end_st) else if (st != acc_end_st)
gfc_error ("Expecting %s at %C", gfc_ascii_statement (acc_end_st)); {
reject_statement (); gfc_error ("Expecting %s at %C", gfc_ascii_statement (acc_end_st));
reject_statement ();
}
} }
while (st != acc_end_st); while (st != acc_end_st);