We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 17ddd86 commit ea4e9aaCopy full SHA for ea4e9aa
src/json_module.f90
@@ -1268,10 +1268,8 @@ subroutine json_initialize(verbose,compact_reals)
1268
call json_clear_exceptions()
1269
1270
!optional inputs (if not present, values remains unchanged):
1271
- if (present(verbose)) is_verbose = verbose
1272
-
1273
- !....... gfortran 5.0.0 bug???? seems to be true, even when not present !!!!!
1274
- if (present(compact_reals)) compact_real = compact_reals
+ if (present(verbose)) is_verbose = verbose
+ if (present(compact_reals)) compact_real = compact_reals !may be a bug here in Gfortran 5.0.0... check this...
1275
1276
! set the default output/input format for reals:
1277
! [this only needs to be done once, since it can't change]
0 commit comments