test_13 Subroutine

public subroutine test_13(error_cnt)

Arguments

Type IntentOptional AttributesName
integer, intent(out) :: error_cnt

report number of errors to caller

Description

Tests different real format strings using repeated calls to [[json_initialize]].


Variables

TypeVisibility AttributesNameInitial
type(json_file), public :: my_file
character(kind=json_CK,len=:), public, allocatable:: str
integer, public :: i
character(len=2), public, parameter, dimension(5):: fmts =['g ', 'e ', 'en', 'es', '* ']

format statements to test