https://gcc.gnu.org/bugzilla/show_bug.cgi?id=121157
--- Comment #10 from Andrew Teylu <andrew.teylu at vector dot com> ---
Btw, it isn't that it _never_ works:
```
package LOCAL_IO is
function GET_NEXT return Integer;
end LOCAL_IO;
package body LOCAL_IO is
type TEXT_TYPE (LENGTH : Positive := 1) is record
null;
end record;
DESCRIPTOR : TEXT_TYPE;
function GET_NEXT return Integer is
begin
return 1;
end GET_NEXT;
end LOCAL_IO;
with LOCAL_IO;
procedure Main is
Value : Integer;
begin
null;
Value := LOCAL_IO.GET_NEXT;
end Main;
```
Steps:
```
gnatchop.exe -w input.txt
gcc.exe -g -gcodeview -c *.adb
gnatbind.exe main.ali
gcc.exe -g -c b~main.adb
gcc.exe -g -gcodeview -Wl,--pdb=main.pdb -g -O0 b~main.o main.o local_io.o -o
main
-L/home/avj/gnat-x86_64-windows64-15.1.0-2/lib/gcc/x86_64-w64-mingw32/15.1.0/adalib/
-lgnat -Wl,--subsystem,console
```
This does complete without error and generate `main.pdb`.
It does crash if you use `-gcodeview` on the binder file, so I've omitted that.
