Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
west-public
West
Commits
7c7f93ad
Commit
7c7f93ad
authored
Jul 29, 2019
by
Marco Govoni
Browse files
Fix for PGI compiler
parent
01995f16
Changes
1
Hide whitespace changes
Inline
Side-by-side
Libraries/Forpy/forpy_mod.f90
View file @
7c7f93ad
...
...
@@ -2170,7 +2170,9 @@ function forpy_initialize_unicode() result(ierror)
type
(
c_ptr
)
::
a_unicode
type
(
PyObject
),
pointer
::
ptr
a_unicode
=
PyUnicode_DecodeUTF8
(
""
,
0_PY_SSIZE_T_KIND
,
"strict"
//
C_NULL_CHAR
)
character
(
kind
=
C_CHAR
)
::
a
=
""
,
b
=
"strict"
a_unicode
=
PyUnicode_DecodeUTF8
(
a
,
0_PY_SSIZE_T_KIND
,
b
//
C_NULL_CHAR
)
if
(
.not.
c_associated
(
a_unicode
))
then
ierror
=
EXCEPTION_ERROR
...
...
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