https://gcc.gnu.org/bugzilla/show_bug.cgi?id=110644
--- Comment #7 from Steve Kargl <sgk at troutmask dot apl.washington.edu> --- On Thu, Oct 19, 2023 at 08:00:27AM +0000, aluaces at udc dot es wrote: > > It says something about a non-recursive function likely calling itself. I > will > inspect my source, even it is a bit too big. Maybe a better solution would be > if I compiled gcc with debugging flags. Can I just use C_FLAGS="-O0 -g" and > CXX_FLAGS="-O0 -g" at configure time, or if is there a specific configure > flag? I doubt that these options will help with this problem. Those are for building your application with debugging info. The issue is the compiler itself is dying. > 1078 gcc_assert (loc->nextc - loc->lb->line >= 0); > (gdb) bt > #0 gfc_format_decoder (pp=0x2706750, text=0x7fffffffb840, spec=0x2708d10 "L", > precision=<optimized out>, wide=false, set_locus=false, hash=false, > quoted=0x7fffffffb667, buffer_ptr=0x2708b00) > at ../../gcc-13.2.0/gcc/fortran/error.cc:1078 > #1 0x0000000001b44c0a in pp_format (pp=<optimized out>, > text=text@entry=0x7fffffffb840) at ../../gcc-13.2.0/gcc/pretty-print.cc:1475 > #2 0x0000000001b34e02 in diagnostic_report_diagnostic (context=0x26ee380 > <global_diagnostic_context>, diagnostic=diagnostic@entry=0x7fffffffb840) at > ../../gcc-13.2.0/gcc/diagnostic.cc:1592 > #3 0x000000000071cbc8 in gfc_report_diagnostic (diagnostic=0x7fffffffb840) at > ../../gcc-13.2.0/gcc/fortran/error.cc:890 > #4 gfc_warning(int, const char *, typedef __va_list_tag __va_list_tag *) > (opt=0, > gmsgid=0x1c9c420 "Non-RECURSIVE procedure %qs at %L is possibly calling > itself recursively. Declare it RECURSIVE or use %<-frecursive%>", > ap=ap@entry=0x7fffffffb9c8) > at ../../gcc-13.2.0/gcc/fortran/error.cc:923 > #5 0x000000000071d287 in gfc_warning (opt=opt@entry=0, > gmsgid=gmsgid@entry=0x1c9c420 "Non-RECURSIVE procedure %qs at %L is possibly > calling itself recursively. Declare it RECURSIVE or use %<-frecursive%>") > at ../../gcc-13.2.0/gcc/fortran/error.cc:954 I suspect that the locus associate with %L in the above error message is undefined (i.e., a NULL pointer). This likely means expr in the next frame is missing some info. > #6 0x00000000007a275f in resolve_procedure_expression (expr=0x32a9530) at > ../../gcc-13.2.0/gcc/fortran/resolve.cc:1956 Can you do (gdb) up 6 (gdb) p *expr You'll likely see expr->where is either NULL or its components are. My sources are bit newer, resolve.cc:1974 is if (is_illegal_recursion (sym, gfc_current_ns)) gfc_warning (0, "Non-RECURSIVE procedure %qs at %L is possibly calling" " itself recursively. Declare it RECURSIVE or use" " %<-frecursive%>", sym->name, &expr->where); You can try replacing &expr->where with gfc_current_locus. I don't remember if the & is needed with gfc_current_locus.