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
37e860a2
Commit
37e860a2
authored
Mar 04, 2005
by
Steven G. Kargl
Committed by
Steven G. Kargl
Mar 04, 2005
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* expr.c (gfc_copy_shape_excluding): Change && to ||.
From-SVN: r95891
parent
7235c300
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
1 deletions
+5
-1
gcc/fortran/ChangeLog
+4
-0
gcc/fortran/expr.c
+1
-1
No files found.
gcc/fortran/ChangeLog
View file @
37e860a2
Steven G. Kargl <kargls@comcast.net>
* expr.c (gfc_copy_shape_excluding): Change && to ||.
2005-03-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
2005-03-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* trans-intrinsic.c (gfc_get_symbol_for_expr): Fix comment typo,
* trans-intrinsic.c (gfc_get_symbol_for_expr): Fix comment typo,
...
...
gcc/fortran/expr.c
View file @
37e860a2
...
@@ -352,7 +352,7 @@ gfc_copy_shape_excluding (mpz_t * shape, int rank, gfc_expr * dim)
...
@@ -352,7 +352,7 @@ gfc_copy_shape_excluding (mpz_t * shape, int rank, gfc_expr * dim)
n
=
mpz_get_si
(
dim
->
value
.
integer
);
n
=
mpz_get_si
(
dim
->
value
.
integer
);
n
--
;
/* Convert to zero based index */
n
--
;
/* Convert to zero based index */
if
(
n
<
0
&&
n
>=
rank
)
if
(
n
<
0
||
n
>=
rank
)
return
NULL
;
return
NULL
;
s
=
new_shape
=
gfc_get_shape
(
rank
-
1
);
s
=
new_shape
=
gfc_get_shape
(
rank
-
1
);
...
...
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