[Bug fortran/105012] [12 Regression] wrf from SPECCPU2017 ICEs during LTO linking since r12-7692-g8db155ddf8cec9

["rguenth at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=105012

--- Comment #11 from Richard Biener <rguenth at gcc dot gnu.org> ---
(In reply to Richard Biener from comment #10)
> likely triggered by the INTENT(out), it looks like gfortran fails to properly
> name-lookup a variable of the same name as the function?  The intent is
> likely
> to have the return value assigned by CALERF_r8.  So it also looks like
> gfortran miscompiles such testcase.
> 
> The following sketches a miscompiled testcase (but my fortran fu is too weak
> to make it compile)
> 
> PROCEDURE Y (Z)
>       real(8), intent(out) :: Z
>       Z = 1.
> END PROCEDURE Y
> FUNCTION X
>       real(8) :: X
>       CALL Y (X)
> END FUNCTION X
> PROGRAM TEST
>     real(8) :: Z
>     Z = X();
>     if (Z.ne.1.) STOP 1
> END

SUBROUTINE Y (Z)
      real(8), intent(out) :: Z
      Z = 1.
END SUBROUTINE Y
FUNCTION X()
      real(8) :: X
      CALL Y (X)
END FUNCTION X
PROGRAM TEST
    real(8) :: Z
    Z = X();
    if (Z.ne.1.) STOP 1
END PROGRAM

but still

t.f90:11:9:

   11 |     Z = X();
      |         1
Error: Return type mismatch of function 'x' at (1) (REAL(4)/REAL(8))