gcc/fortran/ChangeLog:
PR fortran/99651
* intrinsic.c (gfc_intrinsic_func_interface): Set
attr.proc = PROC_INTRINSIC if FL_PROCEDURE.
gcc/testsuite/ChangeLog:
PR fortran/99651
* gfortran.dg/null_11.f90: New test.
sym->attr.intrinsic = 1;
sym->attr.flavor = FL_PROCEDURE;
}
+ if (sym->attr.flavor == FL_PROCEDURE)
+ {
+ sym->attr.function = 1;
+ sym->attr.proc = PROC_INTRINSIC;
+ }
if (!sym->module)
gfc_intrinsic_symbol (sym);
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/99651
+!
+module m
+ type :: CHAR_STAR
+ character(len=1),dimension(:),pointer :: ptr
+ end type
+ type(CHAR_STAR), parameter ::CHAR_STAR_NULL = CHAR_STAR(NULL())
+end module m
+
+use m
+type typeNode
+ type(typeNode), pointer :: Next => null()
+end type typeNode
+end