[PATCH, Fortran] Fixes for F2018 C838 (PR fortran/101334)

[Thomas Koenig]

Hi Sandra,

> This patch fixes some bugs in handling of assumed-rank arguments 
> revealed by the TS29113 testsuite, allowing xfails to be removed from 
> those testcases.  It was previously failing to diagnose an error when 
> passing an assumed-rank argument to a procedure via a non-assumed-rank 
> dummy, and giving a bogus error when passing one as the first argument 
> to the ASSOCIATED intrinsic.  Both fixes turned out to be 1-liners.  OK 
> to commit?

OK.

Thanks for the patch!

Best regards

	Thomas