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

re PR fortran/18993 (incorrect parsing in fixed-form)

Browse source 
fortran/
PR fortran/18993
* match.c (gfc_match_if): Don't explicitly skip optional whitespace.
(gfc_match_nullify): Make sure that ')' is in front of the end of
statement.

testsuite/
PR fortran/18993
* gfotran.dg/nullify_1.f: New test.

From-SVN: r92209
This commit is contained in:
Tobias Schlüter 2004-12-15 19:55:57 +01:00 • committed by Tobias Schlüter
parent 7cbeffe2fb
commit 172b87995c
4 changed files with 25 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View file

@ -1,3 +1,10 @@
2004-12-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/18993
* match.c (gfc_match_if): Don't explicitly skip optional whitespace.
(gfc_match_nullify): Make sure that ')' is in front of the end of
statement.
2004-12-14 Richard Henderson <rth@redhat.com>
* gfortran.h (gfc_expr.function.name): Make const.

4
gcc/fortran/match.c
View file

@ -974,7 +974,7 @@ gfc_match_if (gfc_statement * if_type)
return MATCH_YES;
}
if (gfc_match (" then %t") == MATCH_YES)
if (gfc_match (" then%t") == MATCH_YES)
{
new_st.op = EXEC_IF;
new_st.expr = expr;
@ -1822,7 +1822,7 @@ gfc_match_nullify (void)
tail->expr = p;
tail->expr2 = e;
if (gfc_match_char (')') == MATCH_YES)
if (gfc_match (" )%t") == MATCH_YES)
break;
if (gfc_match_char (',') != MATCH_YES)
goto syntax;

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2004-12-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/18993
* gfotran.dg/nullify_1.f: New test.
2004-12-15 Richard Henderson <rth@redhat.com>
* gcc.target/i386/i386.exp: New harness.

11
gcc/testsuite/gfortran.dg/nullify_1.f Normal file
View file

@ -0,0 +1,11 @@
C { dg-do compile }
C PR 18993
C we didn't match the end of statement following NULLIFY ()
C this lead to weird error messages
subroutine ordern( )
real, pointer :: aux(:,:)
C Nullify pointers
nullify(aux)
C Set default sizes for order N arrays
end subroutine ordern