1! { dg-do compile }
2module fox_m_fsys_format
3
4  interface len
5     module procedure str_real_sp_len, str_real_sp_fmt_len
6  end interface
7
8contains
9
10  pure function str_real_sp_fmt_len(x, fmt) result(n)
11    real, intent(in) :: x
12    character(len=*), intent(in) :: fmt
13    if (.not.checkFmt(fmt)) then
14    endif
15  end function str_real_sp_fmt_len
16  pure function str_real_sp_len(x) result(n)
17    real, intent(in) :: x
18    n = len(x, "")
19  end function str_real_sp_len
20  pure function str_real_dp_matrix(xa) result(s)
21    real, intent(in) :: xa
22    character(len=len(xa)) :: s
23  end function str_real_dp_matrix
24
25  pure function checkfmt(s) result(a)
26   logical a
27   character(len=*), intent(in) :: s
28  end function checkfmt
29end module fox_m_fsys_format
30