Internal compiler error when wrapping intrinsics with "use" renaming

There is a weird error if you wrap an intrinsic function, then rename the wrapper in a use statement to have the same name as the original intrinsic. This is usually something that you would only do if you wanted to choose between your own implementation of a function and the compiler's. See here:

module wrap_gamma

implicit none

contains

real function wrapper(x)
  real, intent(in) :: x
  wrapper = gamma(x)
end function wrapper

end module wrap_gamma

program test_intrinsic_name_reuse

use wrap_gamma, only: gamma => wrapper

implicit none

print *, gamma(2._r8)

end program test_intrinsic_name_reuse

I found that this only happens if you actually use the intrinsic in the wrapper (e.g. no error if you remove the "wrapper = gamma(x)" line), and the issue also goes away if you use a generic function to create another alias (e.g. creating a "wrapper2" generic function and then aliasing gamma to that in the main program above). That second case is the workaround that I've been using.