annotate gcc/testsuite/gfortran.dg/pr85138_2.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do compile }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 module fox_m_fsys_format
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 interface len
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 module procedure str_real_dp_len, str_real_dp_fmt_len
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 end interface
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 contains
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 pure function str_real_dp_fmt_len(x, fmt) result(n)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 real, intent(in) :: x
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 character(len=*), intent(in) :: fmt
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 if (.not.checkFmt(fmt)) then
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 endif
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 end function str_real_dp_fmt_len
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 pure function str_real_dp_len(x) result(n)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 real, intent(in) :: x
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 end function str_real_dp_len
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 pure function str_real_dp_array_len(xa) result(n)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 real, dimension(:), intent(in) :: xa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 end function str_real_dp_array_len
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 pure function str_real_dp_array_fmt_len(xa, fmt) result(n)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 real, dimension(:), intent(in) :: xa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 character(len=*), intent(in) :: fmt
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 end function str_real_dp_array_fmt_len
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 pure function str_real_dp_fmt(x, fmt) result(s)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 real, intent(in) :: x
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 character(len=*), intent(in) :: fmt
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26 character(len=len(x, fmt)) :: s
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 end function str_real_dp_fmt
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28 pure function checkFmt(fmt) result(good)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 character(len=*), intent(in) :: fmt
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 logical :: good
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
31 end function checkFmt
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
32 end module fox_m_fsys_format