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