PR 60414: Patch proposal

[Andre Vehreschild]

Hi Dominique,

thank you very much for your comments. I really appreciate them.

Unfortunately I am contracted only for a limited number of around 6 bugs. The
control on which bugs to pick is done by compiling a project and resolving the
bugs that occur in order of their appearance.

I have reworked the test:

- results are now checked automatically against their expected value, and
- unexpected results lead to an abort.

I hope this will do. The test for sure can be made more elegant, but my Fortran
is to limited for that. I consider it pays more to invest my time into resolving
bugs, then into writing most elegant test. What do you think?

The comment in interface.c is changed to:

  /* Only check ranks compatibility, when the actual argument is not a
     reference of an array (foo(i)). A reference into an array is assumed
     when actual->ref is non null. */
  if (actual->ts.type == BT_CLASS && CLASS_DATA (actual)->as
        && !actual->ref
	&& CLASS_DATA (actual)->as->rank == symbol_rank (formal))
    return 1;

The complete patch with the changes advised is attached in pr60414_3.patch.

Again, Bootstrapped and regextested on "x86_64-unknown-linux-gnu" w/o any
regressions.

Regards,
	Andre
-- 
Andre Vehreschild * Kreuzherrenstr. 8 * 52062 Aachen
Tel.: +49 241 9291018 * Email: vehre@gmx.de 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr60414_3.patch
Type: text/x-patch
Size: 3622 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20140721/20b0f22a/attachment.bin>