[Patch, fortran] PR29284 - [4.1/4.2 Regression] ICE for optional subroutine argument

[THOMAS Paul Richard 169137]

FX,


> >
> > Did you put Olav up to this?
> 
> No, I swear I have no connection to that bug-report.


I believe you! I was just pulling your leg.

> 
> On an unrelated matter, I just found the following (while reducing
> testcases for tree mismatch as noted by Andrew Pinski's patch, see PR
> 28722), and it's worrying me a little. Is that new?
> 
> 
> $ cat u.f90
>   if (isscan () /= 0) call abort
> contains
>   integer function isscan (substr)
>     character(*), optional :: substr
>     if (.not.present(substr)) isscan = myscan ("foo", "over")
>   end function isscan
> end
> $ gfortran u.f90
> u.f90: In function 'MAIN__':
> u.f90:5: internal compiler error: Segmentation fault
> 

This is fixed by the "patch" that fixes the other two PRs. I put quotes
around patch because the first order version that includes the call
to gfc_add_interface_mapping breaks a lot of other things. I wil try
changing the order of statements next but I am coming to the conclusion
that there will have to be two separate blocks of if (e && fsym...

Cheers

Paul