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")