Skip to content

Commit ea4e9aa

Browse files
committed
minor formatting
1 parent 17ddd86 commit ea4e9aa

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

src/json_module.f90

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1268,10 +1268,8 @@ subroutine json_initialize(verbose,compact_reals)
12681268
call json_clear_exceptions()
12691269

12701270
!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
1271+
if (present(verbose)) is_verbose = verbose
1272+
if (present(compact_reals)) compact_real = compact_reals !may be a bug here in Gfortran 5.0.0... check this...
12751273

12761274
! set the default output/input format for reals:
12771275
! [this only needs to be done once, since it can't change]

0 commit comments

Comments
 (0)