diff options
| author | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2007-04-14 20:43:20 +0200 |
|---|---|---|
| committer | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2007-04-14 20:43:20 +0200 |
| commit | ed5ee445f9f8f9147aa7367eec0d3ae08d902c60 (patch) | |
| tree | a657f26122f0e8bbe7ed38c2894dc00b59f4041b /gcc | |
| parent | b9cc7c96e5b98adcdf405b946d3fc3089e80a5a0 (diff) | |
| download | gcc-ed5ee445f9f8f9147aa7367eec0d3ae08d902c60.zip gcc-ed5ee445f9f8f9147aa7367eec0d3ae08d902c60.tar.gz gcc-ed5ee445f9f8f9147aa7367eec0d3ae08d902c60.tar.bz2 | |
+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.
From-SVN: r123821
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 cd70c92..3ec7430 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 e31e1c5..9e27edc 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; |