--- Comment #5 from pinskia at gcc dot gnu dot org 2006-02-13 00:33 ---
110653 jakub if (TREE_CODE (length) == VAR_DECL
110653 jakub && DECL_CONTEXT (length) == NULL_TREE)
110653 jakub gfc_finish_var_decl (length, sym);
--
http://gcc.gnu.org/bugzil
--- Comment #4 from pinskia at gcc dot gnu dot org 2006-02-13 00:24 ---
This is in gfc_get_fake_result_decl.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26246
--- Comment #3 from pinskia at gcc dot gnu dot org 2006-02-13 00:22 ---
We are passing the wrong symbol to gfc_finish_var_decl, we are passing the
symbol for the function and not the result.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26246
--- Comment #2 from pinskia at gcc dot gnu dot org 2006-02-13 00:13 ---
495 /* TODO: Don't set sym->module for result or dummy variables. */
496 gcc_assert (current_function_decl == NULL_TREE || sym->result ==
sym);
497 /* This is the declaration of a modul
--- 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_to
