Hi Janus,
Janus Weil wrote:
the attached patch allows type-bound procedures to be passed actual
arguments to dummy procedures. When doing this, on has to transform
the expression such that the corresponding procedure pointer from the
vtab is used.
...
+ else if (sym->ts.type == BT_CLASS)
+ {
+ gfc_add_vptr_component (primary);
+ gfc_add_component_ref (primary, name);
+ }
+ else if (sym->ts.type == BT_DERIVED)
+ {
If the procedure is NON_OVERRIDABLE, it should be directly called
without the detour through the vptr.
Tobias
