gap> START_TEST("LocationFunc.tst");

# regular GAP function
gap> f:=x->x;;
gap> LocationFunc(f);
"stream:1"

# Library function
gap> PositionSublist(LocationFunc(Where),"/lib/error.g:") <> fail;
true

# GAP function which was compiled to C code by gac
gap> LocationFunc(INSTALL_METHOD_FLAGS);
"GAPROOT/lib/oper1.g:147"

# proper kernel function
gap> LocationFunc(APPEND_LIST_INTR);
"src/listfunc.c:APPEND_LIST_INTR"

#
gap> STOP_TEST("LocationFunc.tst", 1);
