diff options
| author | aldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-14 18:43:20 +0000 |
|---|---|---|
| committer | aldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-14 18:43:20 +0000 |
| commit | e558af2945cb5bbc3890a0dd9e1d825328d13eec (patch) | |
| tree | a657f26122f0e8bbe7ed38c2894dc00b59f4041b /gcc | |
| parent | db2f00f5edad92f245b7fbe9cc389021b0fbba42 (diff) | |
| download | gcc-e558af2945cb5bbc3890a0dd9e1d825328d13eec.tar.gz | |
+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" <name@there.tdl>' convention.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123821 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/primary.c | 3 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cd70c921c14..3ec7430d6ac 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,9 @@ -2007-04-14 Paul Thomas <pault@gcc.gnu.org> +2007-04-14 Bernhard Fischer <aldot@gcc.gnu.org> + + * primary.c: Commentary typo fix; Add question about redundant (?) + set. + +2007-04-14 Paul Thomas <pault@gcc.gnu.org> PR fortran/29507 PR fortran/31404 diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index e31e1c5dbfd..9e27edc2f39 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; |