[Bug fortran/19574] specification expression failure

["paul dot richard dot thomas at cea dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #6 from paul dot richard dot thomas at cea dot fr  2005-12-15 14:49 -------
(In reply to comment #5)
> the testcase in comment #1 no longer seg faults.

module funcs
   implicit none
   contains
      function f(x)
         character(*), intent(in) :: x
         integer f(len(x))
         integer i

         do i=1,len(x)
            f(i) = iachar (x(i:i))
         end do

      end function f
end module funcs

program spec_expr_test
   use funcs
   implicit none

   write(*,*) f('test')
end program spec_expr_test

now compiles and runs correctly, as does my testcase.

I will close this tonight


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19574