@@ -8811,6 +8811,7 @@ gfc_conv_expr_reference (gfc_se * se, gfc_expr * expr, bool add_clobber)
if (expr->expr_type == EXPR_FUNCTION
&& ((expr->value.function.esym
+ && expr->value.function.esym->result
&& expr->value.function.esym->result->attr.pointer
&& !expr->value.function.esym->result->attr.dimension)
|| (!expr->value.function.esym && !expr->ref
new file mode 100644
@@ -0,0 +1,15 @@
+! { dg-do compile }
+! PR fortran/95500 - ICE compiling extra interface on intrinsic
+
+program test_intrinsic
+ implicit none
+ intrinsic :: alog
+ intrinsic :: dlog
+ real (4), parameter :: one = 1
+
+ interface ln
+ procedure :: alog, dlog
+ end interface ln
+
+ write (*,*) 'ln 1', ln (one)
+end program test_intrinsic