g77 go to

[Scott Brozell <sbrozell at scripps dot edu>]

Hello,

Various g77 versions emit errors for go to, but accept goto.
This behavior is dependent on the presence of -ffree-form.
Six items below.

Thank you,
Scott Brozell, Ph.D.              |  e-mail:  sbrozell@scripps.edu
Dept. of Molecular Biology, TPC15 |  fax:          +1-858-784-8896
The Scripps Research Institute    |  phone:        +1-858-784-8754
10550 N. Torrey Pines Rd.         |  home page:
La Jolla CA 92037  USA            |    http://www.scripps.edu/~sbrozell


1)
Three versions yield identical results:
g77 version 2.96 20000731 (Red Hat Linux 7.3 2.96-110) (from FSF-g77 version 0.5.26 20000731 (Red Hat Linux 7.3 2.96-110))
Driving: g77 -v -c -xf77-version /dev/null -xnone
Reading specs from /usr/lib/gcc-lib/i386-redhat-linux/2.96/specs
gcc version 2.96 20000731 (Red Hat Linux 7.3 2.96-110)
 /usr/lib/gcc-lib/i386-redhat-linux/2.96/tradcpp0 -lang-fortran -v -D__GNUC__=2 -D__GNUC_MINOR__=96 -D__GNUC_PATCHLEVEL__=0 -D__ELF__ -Dunix -Dlinux -D__ELF__ -D__unix__ -D__linux__ -D__unix -D__linux -Asystem(posix) -D__NO_INLINE__ -Acpu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_i386__ /dev/null /dev/null
GNU traditional CPP version 2.96 20000731 (Red Hat Linux 7.3 2.96-110)
 /usr/lib/gcc-lib/i386-redhat-linux/2.96/f771 -fnull-version -quiet -dumpbase g77-version.f -version -fversion -o /tmp/ccEUcgl4.s /dev/null
GNU F77 version 2.96 20000731 (Red Hat Linux 7.3 2.96-110) (i386-redhat-linux) compiled by GNU C version 2.96 20000731 (Red Hat Linux 7.3 2.96-110).
GNU Fortran Front End version 0.5.26 20000731 (Red Hat Linux 7.3 2.96-110)
 as -V -Qy -o /tmp/ccqwiS1X.o /tmp/ccEUcgl4.s
GNU assembler version 2.12.1 (i386-redhat-linux) using BFD version 2.12.1
 ld -m elf_i386 -dynamic-linker /lib/ld-linux.so.2 -o /tmp/cc6Y01qT /tmp/ccqwiS1X.o /usr/lib/gcc-lib/i386-redhat-linux/2.96/../../../crt1.o /usr/lib/gcc-lib/i386-redhat-linux/2.96/../../../crti.o /usr/lib/gcc-lib/i386-redhat-linux/2.96/crtbegin.o -L/usr/lib/gcc-lib/i386-redhat-linux/2.96 -L/usr/lib/gcc-lib/i386-redhat-linux/2.96/../../.. -lg2c -lm -lgcc -lc -lgcc /usr/lib/gcc-lib/i386-redhat-linux/2.96/crtend.o /usr/lib/gcc-lib/i386-redhat-linux/2.96/../../../crtn.o
 /tmp/cc6Y01qT
__G77_LIBF77_VERSION__: 0.5.26 20000731 (prerelease)
@(#)LIBF77 VERSION 19991115
__G77_LIBI77_VERSION__: 0.5.26 20000731 (prerelease)
@(#) LIBI77 VERSION pjw,dmg-mods 19991115
__G77_LIBU77_VERSION__: 0.5.26 20000731 (prerelease)
@(#) LIBU77 VERSION 19980709

Reading specs from /usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.1.1/specs
Configured with: ../gcc-3.1.1/configure
Thread model: single
gcc version 3.1.1

Reading specs from /usr/lib/gcc-lib/i486-suse-linux/3.2/specs
Configured with: ../configure --enable-threads=posix --prefix=/usr --with-local-prefix=/usr/local --infodir=/usr/share/info --mandir=/usr/share/man --libdir=/usr/lib --enable-languages=c,c++,f77,objc,java,ada --enable-libgcj --with-gxx-include-dir=/usr/include/g++ --with-slibdir=/lib --with-system-zlib --enable-shared --enable-__cxa_atexit i486-suse-linux
Thread model: posix
gcc version 3.2

2)
Attempted on these machines:
Linux bohr 2.4.18-5smp #1 SMP Mon Jun 10 15:19:40 EDT 2002 i686 unknown
Linux matisse 2.4.19-4GB #1 Fri Sep 13 13:14:56 UTC 2002 i686 unknown

3)
The input file _cshf.f is attached.

4)
g77 -W -Wall -c -ffree-form -ffixed-line-length-none -fno-globals -funix-intrinsics-hide -malign-double -O3 -malign-double -funroll-loops -ffast-math -o cshf.o _cshf.f


_cshf.f: In subroutine `cshf':
_cshf.f:313: warning:
   common /files/ groupbuffer, mdin, mdout, inpcrd, parm, restrt, &
           ^
Initial padding for common block `files' is 3 bytes at (^) -- consider reordering members, largest-type-size first
_cshf.f:482:
       if (ifind == 0) go to 30
                       1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
_cshf.f:486:
       go to 40
       1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
_cshf.f:567:
           go to 120
           1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
_cshf.f:596:
         if (nrescur == nrescursave) go to 150
                                     1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
_cshf.f:609:
           if(jres == nrescur) go to 140
                               1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
_cshf.f:745:
           if(namr(j)(4:6) == resat(ip)(11:13)) go to 320
                                                1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
_cshf.f:749:
               namr(j)(8:8) == 'H') go to 320
                                    1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
_cshf.f:757:
           if (relc > NMRCUT2) go to 320
                               1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
_cshf.f:921:
         if (rph2 > NMRCUT2) go to 340
                             1  2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)


5)
If go to is replaced with goto then success
_cshf.f: In subroutine `cshf':
_cshf.f:313: warning:
   common /files/ groupbuffer, mdin, mdout, inpcrd, parm, restrt, &
           ^
Initial padding for common block `files' is 3 bytes at (^) -- consider reordering members, largest-type-size first
_cshf.f:835: warning: `fac' might be used uninitialized in this function


6)
If the file is fixed format Fortran then success
g77 -W -Wall -c -ffixed-line-length-none -fno-globals -ff90 -funix-intrinsics-hide -malign-double -O3 -malign-double -funroll-loops -ffast-math   -o cshf.o _cshf.f
_cshf.f: In subroutine `cshf':
_cshf.f:309: warning:
         common /files/ groupbuffer, mdin, mdout, inpcrd, parm, restrt,
                 ^
Initial padding for common block `files' is 3 bytes at (^) -- consider reordering members, largest-type-size first
_cshf.f:831: warning: `fac' might be used uninitialized in this function

Attachment: _cshf.f
Description: _cshf.f

Attachment: fixedformat_cshf.f
Description: fixedformat_cshf.f