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

[François-Xavier Coudert]

> FX,
>
> Did you put Olav up to this?

No, I swear I have no connection to that bug-report.

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

Thanks,
FX