gcc/testsuite/gfortran.dg/pr85138_1.f90

   1 ! { dg-do compile }
   2 module fox_m_fsys_format
   3
   4   interface len
   5      module procedure str_real_sp_len, str_real_sp_fmt_len
   6   end interface
   7
   8 contains
   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
  29 end module fox_m_fsys_format