[PATCH, Fortran] PROCEDURE declarations

[Tobias Schlüter]

Janus Weil wrote:
> +	  /* Add current_attr to the symbol attributes.  */
> +	  src_attr = (char *) (&(current_attr));
> +	  dest_attr = (char *) (&(sym->attr));
> +	  for (i = 0; i < (int) sizeof (sym->attr); i++)
> +	    {
> +	      *dest_attr = (*dest_attr) | (*src_attr);
> +	      dest_attr++;
> +	      src_attr++;
> +	    }

This doesn't make any sense.  There's a function gfc_copy_attr() which 
maybe does what you want.

I haven't looked at the rest yet.

Cheers,
- Tobi