🚀 go-pugleaf

When compiling this "program":

	if (nopt .lt. 7) then
 65	  print 977
	endif   
	if (disthrin .lt. 7) go to 65
 977	format ('   ')	
	end

g77 generates this warning:

   try.f:2: warning:
       65       print 977
       1
   try.f:4: (continued):
   	      if (disthrin .lt. 7) go to 65
   					 2
   Reference to label at (2) is outside block containing definition at
   (1)

I don't see anything objectionable about this fragment.

My program versions are as follows:

   $ g77 -v try.f
    gcc -v -xf77 try.f -xnone -lg77 -lm
   Reading specs from /usr/lib/gcc-lib/i486-linux/2.6.3/specs
   gcc version 2.6.3
    /usr/lib/gcc-lib/i486-linux/2.6.3/f771 try.f -quiet -dumpbase try.f
   -version -fversion -o /tmp/cca04249.s
   GNU F77 version 2.6.3 (80386, BSD syntax) compiled by GNU C version
   2.6.3.
   GNU Fortran Front End version 0.5.16 compiled: Sep  5 1995 12:03:04

                        - Jim Van Zandt