Hi Harald,

one remark: Instead of

+         && !(strcmp(gfc_current_intrinsic, "associated") == 0
+               || strcmp(gfc_current_intrinsic, "null") == 0
+               || strcmp(gfc_current_intrinsic, "present") == 0))

could you maybe test sym->id ?

OK with that change.

Best regards, and thanks for the patch

        Thomas

Reply via email to