Patch for PRs 34429 and 34896

[Tobias Burnus]

Tobias Burnus wrote:
> Otherwise the patch looks OK.
But does not regtest here. I get a failure for:

gcc/testsuite/gfortran.dg/interface_12.f90:58.43:

         dimension r(modulo (len (r) - 1, 3) + 1)
                                          1
Error: Invalid character in name at (1)

Excerpt:

      character(f (x)) function test2 (x) result(r)
         implicit integer (x)
         dimension r(modulo (len (r) - 1, 3) + 1)
         integer, intent(in) :: x
         interface
            pure function f (x)

Tobias