Skip to content

Commit 622962f

Browse files
authored
Simplify compilation with nvfortran and xlf (#496)
1 parent 90893ad commit 622962f

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/json_parameters.F90

+2-2
Original file line numberDiff line numberDiff line change
@@ -57,14 +57,14 @@ module json_parameters
5757
character(kind=CK,len=*),parameter :: dot = CK_'.' !! path separator for [[json_get_by_path_default]]
5858
character(kind=CK,len=*),parameter :: tilde = CK_'~' !! RFC 6901 escape character
5959
character(kind=CK,len=*),parameter :: single_quote = CK_"'" !! for JSONPath bracket-notation
60-
character(kind=CK,len=*),parameter :: slash = CK_'/' !! JSON special character
61-
character(kind=CK,len=*),parameter :: backslash = CK_'\' !! JSON special character
6260
character(kind=CK,len=*),parameter :: quotation_mark = CK_'"' !! JSON special character
6361
character(kind=CK,len=*),parameter :: bspace = achar(8, kind=CK) !! JSON special character
6462
character(kind=CK,len=*),parameter :: horizontal_tab = achar(9, kind=CK) !! JSON special character
6563
character(kind=CK,len=*),parameter :: newline = achar(10, kind=CK) !! JSON special character
6664
character(kind=CK,len=*),parameter :: formfeed = achar(12, kind=CK) !! JSON special character
6765
character(kind=CK,len=*),parameter :: carriage_return = achar(13, kind=CK) !! JSON special character
66+
character(kind=CK,len=*),parameter :: slash = achar(47, kind=CK) !! JSON special character
67+
character(kind=CK,len=*),parameter :: backslash = achar(92, kind=CK) !! JSON special character
6868

6969
!> default real number format statement (for writing real values to strings and files).
7070
! Note that this can be overridden by calling [[json_initialize]].

0 commit comments

Comments
 (0)