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