[Patch, Fortran] PR57217 - re-add type checks for TBP overriding

[Tobias Burnus]

Janus Weil wrote:
>>> Ok, so: How about the attached patch as a simple & backportable fix for
>>> the regression? (Ok for trunk/4.8/4.7?)
>> I think that part is okay - but as you mentioned TYPE(*) in your last email:
>> That doesn't work; I think compare_type_rank should be made asymmetrical in
>> this regard (ditto for "!gcc$ attributes no_arg_check"). Thus, could you fix
>> that part as well?
> What do you mean?

Try the four attached test cases - they should all be rejected, but they 
are accepted.

> Anyway, anything in this direction is probably a non-regression and
> should rather be handled as a follow-up. Is the current patch
> (http://gcc.gnu.org/ml/fortran/2013-05/msg00045.html) ok for
> trunk/4.8/4.7?

OK. Still, I would like if the attached test cases would be rejected. 
(The first one only affects GCC 4.9, the others also GCC4.8).

Tobias

PS: If you have time, could you please review 
http://gcc.gnu.org/ml/fortran/2013-05/msg00081.html (dealloc intent(in) 
poly array)?

(For the finalization wrapper patch, I will later send a follow-up patch 
which addresses some additional issues, I found while testing.)
-------------- next part --------------
A non-text attachment was scrubbed...
Name: typebound_override_5.f90
Type: text/x-fortran
Size: 777 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20130527/9ede19a8/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: typebound_override_6.f90
Type: text/x-fortran
Size: 750 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20130527/9ede19a8/attachment-0001.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: typebound_override_7.f90
Type: text/x-fortran
Size: 737 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20130527/9ede19a8/attachment-0002.bin>