From ed5ee445f9f8f9147aa7367eec0d3ae08d902c60 Mon Sep 17 00:00:00 2001 From: Bernhard Reutner-Fischer Date: Sat, 14 Apr 2007 20:43:20 +0200 Subject: [PATCH] +2007-04-14 Bernhard Fischer * primary.c: Commentary typo fix; Add question about redundant (?) set. * ChangeLog: Fix formatting of previous ChangeLog entry which did not obey "'name" ' convention. From-SVN: r123821 --- gcc/fortran/ChangeLog | 7 ++++++- gcc/fortran/primary.c | 3 ++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cd70c921c14f..3ec7430d6ac1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,9 @@ -2007-04-14 Paul Thomas +2007-04-14 Bernhard Fischer + + * primary.c: Commentary typo fix; Add question about redundant (?) + set. + +2007-04-14 Paul Thomas PR fortran/29507 PR fortran/31404 diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index e31e1c5dbfd3..9e27edc2f395 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1516,7 +1516,7 @@ cleanup: the opening parenthesis to the closing parenthesis. The argument list is assumed to allow keyword arguments because we don't know if the symbol associated with the procedure has an implicit interface - or not. We make sure keywords are unique. If SUB_FLAG is set, + or not. We make sure keywords are unique. If sub_flag is set, we're matching the argument list of a subroutine. */ match @@ -2233,6 +2233,7 @@ gfc_match_rvalue (gfc_expr **result) break; } + /*FIXME:??? match_varspec does set this for us: */ e->ts = sym->ts; m = match_varspec (e, 0); break;