------- Comment #34 from howarth at nitro dot med dot uc dot edu 2005-11-26 02:50 ------- FYI...here is what I get when I manually run fgetc_1 through gdb...
[Jack-Howarths-Computer:~/Desktop] howarth% gfortran -g -o fgetc_1 fgetc_1.f90 [Jack-Howarths-Computer:~/Desktop] howarth% gdb fgetc_1 GNU gdb 6.1-20040303 (Apple version gdb-434) (Wed Nov 2 17:28:16 GMT 2005) Copyright 2004 Free Software Foundation, Inc. GDB is free software, covered by the GNU General Public License, and you are welcome to change it and/or distribute copies of it under certain conditions. Type "show copying" to see the conditions. There is absolutely no warranty for GDB. Type "show warranty" for details. This GDB was configured as "powerpc-apple-darwin"...Reading symbols for shared libraries .... done (gdb) break fgetc_1.f90:4 Breakpoint 1 at 0x26e0: file fgetc_1.f90, line 4. (gdb) r Starting program: /Users/howarth/Desktop/fgetc_1 Reading symbols for shared libraries .++ done Breakpoint 1, MAIN__ () at fgetc_1.f90:6 6 s = "12345" (gdb) s Current language: auto; currently fortran *__gfortran_copy_string (destlen=5, dest=0xbffff298 "\217?\217?a???", srclen=5, src=0x2fbc "12345") at ../../../gcc-4.1-20051125/libgfortran/intrinsics/string_intrinsics.c:95 95 memmove (dest, src, srclen); (gdb) s Current language: auto; currently c 88 if (srclen >= destlen) (gdb) s 99 } (gdb) s *__gfortran_copy_string (destlen=5, dest=0xbffff298 "\217?\217?a???", srclen=5, src=0x2fbc "12345") at ../../../gcc-4.1-20051125/libgfortran/intrinsics/string_intrinsics.c:91 91 memmove (dest, src, destlen); (gdb) s 99 } (gdb) s 91 memmove (dest, src, destlen); (gdb) s ...at which point the debugger never returns anything (matchin the hang of fgetc_1 I see outside of gdb). -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24991
