5 ! Was ICEing while module write of symbol 'vs_str' in m_dom_dom
6 ! because of "len" being private in fox_m_fsys_format.
8 module fox_m_fsys_array_str
10 pure
function str_vs(vs
) result(s
)
11 character, dimension(:), intent(in
) :: vs
12 character(len
=size(vs
)) :: s
15 pure
function vs_str(s
) result(vs
)
16 character(len
=*), intent(in
) :: s
17 character, dimension(len(s
)) :: vs
20 end module fox_m_fsys_array_str
22 module fox_m_fsys_format
25 module procedure str_logical_array
28 module procedure str_logical_array_len
32 pure
function str_logical_array_len(la
) result(n
)
33 logical, dimension(:), intent(in
) :: la
34 end function str_logical_array_len
35 pure
function str_logical_array(la
) result(s
)
36 logical, dimension(:), intent(in
) :: la
37 character(len
=len(la
)) :: s
38 end function str_logical_array
39 pure
function checkFmt(fmt
) result(good
)
40 character(len
=*), intent(in
) :: fmt
44 end module fox_m_fsys_format
47 use fox_m_fsys_array_str
, only
: str_vs
, vs_str
57 print *, vs_str("ABC")