Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Kim, Jungwon
papyrus
Commits
e064cdb4
Commit
e064cdb4
authored
May 11, 2018
by
Kim, Jungwon
Browse files
integer bitwise or .or. -> ior
parent
304ce17e
Changes
1
Hide whitespace changes
Inline
Side-by-side
kv/tests/14_fortran/test14_fortran.f90
View file @
e064cdb4
...
...
@@ -37,7 +37,7 @@ PROGRAM TEST14_FORTRAN
PEER
=
RANK
+
1
ENDIF
CALL
PAPYRUSKV_OPEN
(
'TEST_DB'
,
PAPYRUSKV_CREATE
.OR.
PAPYRUSKV_RDWR
,
DB
,
IERROR
)
CALL
PAPYRUSKV_OPEN
(
'TEST_DB'
,
IOR
(
PAPYRUSKV_CREATE
,
PAPYRUSKV_RDWR
)
,
DB
,
IERROR
)
IF
(
IERROR
/
=
PAPYRUSKV_OK
)
THEN
PRINT
*
,
'FAILED'
ENDIF
...
...
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