Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
75d17889
Commit
75d17889
authored
Sep 25, 2004
by
Tobias Schlüter
Committed by
Tobias Schlüter
Sep 25, 2004
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* decl.c (add_init_expr_to_sym, variable_decl): Comment fixes.
From-SVN: r88104
parent
601d18c6
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
2 deletions
+7
-2
gcc/fortran/ChangeLog
+4
-0
gcc/fortran/decl.c
+3
-2
No files found.
gcc/fortran/ChangeLog
View file @
75d17889
2004-09-25 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* decl.c (add_init_expr_to_sym, variable_decl): Comment fixes.
2004-09-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* trans-types.c (gfc_return_by_reference): Remove superfluous
...
...
gcc/fortran/decl.c
View file @
75d17889
...
...
@@ -704,7 +704,8 @@ add_init_expr_to_sym (const char *name, gfc_expr ** initp,
return
FAILURE
;
}
/* Checking a derived type parameter has to be put off until later. */
/* Check if the assignment can happen. This has to be put off
until later for a derived type variable. */
if
(
sym
->
ts
.
type
!=
BT_DERIVED
&&
init
->
ts
.
type
!=
BT_DERIVED
&&
gfc_check_assign_symbol
(
sym
,
init
)
==
FAILURE
)
return
FAILURE
;
...
...
@@ -930,7 +931,7 @@ variable_decl (void)
variable immediately preceding, i.e.
integer i, j /1, 2/
is not allowed. Therefore we have to do some work manually, that
could otherwise be let to the matchers for DATA statements. */
could otherwise be le
f
t to the matchers for DATA statements. */
if
(
!
colon_seen
&&
gfc_match
(
" /"
)
==
MATCH_YES
)
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment