Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
dkrz-sw
yaxt
Commits
0f474404
Commit
0f474404
authored
Nov 12, 2020
by
Thomas Jahns
🤸
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Prevent passing of zero-size arrays to C_LOC.
parent
6ba3e7b1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
2 deletions
+10
-2
src/xt_xmap_intersection_f.f90
src/xt_xmap_intersection_f.f90
+10
-2
No files found.
src/xt_xmap_intersection_f.f90
View file @
0f474404
...
...
@@ -144,8 +144,16 @@ CONTAINS
TYPE
(
xt_xmap
)
::
xmap
TYPE
(
c_ptr
)
::
src_com_p
,
dst_com_p
src_com_p
=
C_LOC
(
src_com
)
dst_com_p
=
C_LOC
(
dst_com
)
IF
(
num_src_intersections
>
0
)
THEN
src_com_p
=
C_LOC
(
src_com
)
ELSE
src_com_p
=
c_null_ptr
END
IF
IF
(
num_dst_intersections
>
0
)
THEN
dst_com_p
=
C_LOC
(
dst_com
)
ELSE
dst_com_p
=
c_null_ptr
END
IF
xmap
=
xt_xmap_c2f
(
xmi_new_f2c
(&
num_src_intersections
,
src_com_p
,
&
num_dst_intersections
,
dst_com_p
,
&
...
...
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