Fwd: Returned mail: Service unavailable

[Toon Moene]

"Christian T. Dum" wrote:

> I have used g77 extensively.  I know it is not f95 or even f90 (even with the
> -ff90 option).
> Still, I find the problem, I just discovered, disquieting.

> I have previously converted some now obsolete computed goto's to select case.
> It seemed to work ok with g77.
> However, now I found a very simple case, that gives very strange results, but
> works ok , if I add print statement to the cases.
>  g77 -ff90 seltst.f
> /usr/lib/gcc-lib/i486-suse-linux/2.95.3/libg2c.a(open.o): In function
> `f_open':
> open.o(.text+0x4da): the use of `tempnam' is dangerous, better use `mkstemp'
> /tmp/ccm2Rp5c.o: In function `MAIN__':
> /tmp/ccm2Rp5c.o(.text+0x6b): undefined reference to `L4'
> /tmp/ccm2Rp5c.o(.text+0x73): undefined reference to `L4'
> collect2: ld returned 1 exit status
> The file compiles seltst.f without problems with the -O -W -Wall options you
> suggest, but the result  is nonsense.

Works for me (using the current release, GCC 3.0.3):

toon@laptop:~/g77-bugs$ g77 -ff90 -v seltst.f
g77 version 3.0.3 (Fortran Frontend version 0.5.26 20011220 (release))
Driving: g77 -ff90 -v seltst.f -lg2c -lm
Reading specs from /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.0.3/specs
Configured with: ../gcc/configure 
Thread model: single
gcc version 3.0.3
 /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.0.3/f771 seltst.f -quiet
-dumpbase seltst.f -version -ff90 -o /tmp/ccytQpGX.s
GNU F77 version 3.0.3 (i686-pc-linux-gnu)
        compiled by GNU C version 3.0.3.
 as --traditional-format -V -Qy -o /tmp/ccyfHa7Q.o /tmp/ccytQpGX.s
GNU assembler version 2.9.5 (i386-linux) using BFD version 2.9.5.0.37
 /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.0.3/collect2 -m elf_i386
-dynamic-linker /lib/ld-linux.so.2 /usr/lib/crt1.o /usr/lib/crti.o
/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.0.3/crtbegin.o
-L/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.0.3
-L/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.0.3/../../..
/tmp/ccyfHa7Q.o -lg2c -lm -lgcc -lc -lgcc
/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.0.3/crtend.o /usr/lib/crtn.o
toon@laptop:~/g77-bugs$ ./a.out
 kf: 
6
 420
 next kf 
 kf: 
1
 420
 next kf 
 kf: 
2
 430
 next kf 
 kf: 
3
 440

Hope this helps,

-- 
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
Join GNU Fortran 95: http://g95.sourceforge.net/ (under construction)