gcc/testsuite/gfortran.dg/pr85138_2.f90

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