[Bug fortran/26246] regression from 4.1 to trunk with TREE_STATIC designation.

[kargl at gcc dot gnu dot org]

------- Comment #1 from kargl at gcc dot gnu dot org  2006-02-13 00:01 -------
module st
  implicit none
  contains
    FUNCTION escape_token(string)
    CHARACTER(*), INTENT(IN) :: string
    CHARACTER(LEN=LEN(string)+2) :: escape_token
    IF (INDEX(TRIM(string), '"').NE.0) THEN
      escape_token = "'" // TRIM(string) // "'"
    END IF
  END FUNCTION escape_token
end module st

kargl[237] nm st.o | more
00000000 B ..__result
00000000 T __st__escape_token
         U _gfortran_concat_string
         U _gfortran_copy_string
         U _gfortran_internal_free
         U _gfortran_internal_malloc
         U _gfortran_string_index
         U _gfortran_string_trim


-fdump-tree-original shows

escape_token (__result, .__result, string, _string)
{
  static int4 ..__result;

The "static" looks bad.


-- 


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