------- Comment #1 from dfranke at gcc dot gnu dot org 2009-12-06 15:18 -------
Slightly reduced testcase:
module fox_m_fsys_array_str
contains
pure function str_vs(vs) result(s)
character, dimension(:), intent(in) :: vs
character(len=size(vs)) :: s
end function str_vs
pure function vs_str(s) result(vs)
character(len=*), intent(in) :: s
character, dimension(len(s)) :: vs
end function vs_str
end module fox_m_fsys_array_str
module fox_m_fsys_format
private
interface str
module procedure str_logical_array
end interface str
interface len
module procedure str_logical_array_len
end interface
public :: str
contains
pure integer function str_logical_array_len(la)
logical, dimension(:), intent(in) :: la
end function str_logical_array_len
pure function str_logical_array(la) result(s)
logical, dimension(:), intent(in) :: la
character(len=len(la)) :: s
end function str_logical_array
pure logical function checkFmt(fmt)
character(len=*), intent(in) :: fmt
checkFmt = len(fmt) > 0
end function checkFmt
end module fox_m_fsys_format
module FoX_dom
use fox_m_fsys_format
use fox_m_fsys_array_str
end module FoX_dom
--
dfranke at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |dfranke at gcc dot gnu dot
| |org
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2009-12-06 15:18:49
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41869
