blvs build error with MinGW 3.4.5 (g77)

gistfile1.txt

building 'scipy.optimize._bvls' extension
compiling C sources
C compiler: gcc -mno-cygwin -O2 -Wall -Wstrict-prototypes

compile options: '-Ibuild\src.win32-2.7 -IC:\Python27\lib\site-packages\numpy\core\include -IC:\Python27\include -IC:\Python27\PC -c'
gcc -mno-cygwin -O2 -Wall -Wstrict-prototypes -Ibuild\src.win32-2.7 -IC:\Python27\lib\site-packages\numpy\core\include -IC:\Python27\include -IC:\Python27\PC -c build\src.win32-2.7\fortranobject.c -o build\temp.win32-2.7\Release\build\src.win32-2.7\fortranobject.o
Found executable C:\MinGW\bin\gcc.exe
gcc -mno-cygwin -O2 -Wall -Wstrict-prototypes -Ibuild\src.win32-2.7 -IC:\Python27\lib\site-packages\numpy\core\include -IC:\Python27\include -IC:\Python27\PC -c build\src.win32-2.7\scipy\optimize\bvls\_bvlsmodule.c -o build\temp.win32-2.7\Release\build\src.win32-2.7\scipy\optimize\bvls\_bvlsmodule.o
compiling Fortran sources
Fortran f77 compiler: C:\MinGW\bin\g77.exe -g -Wall -fno-second-underscore -mno-cygwin -O3 -funroll-loops
compile options: '-Ibuild\src.win32-2.7 -IC:\Python27\lib\site-packages\numpy\core\include -IC:\Python27\include -IC:\Python27\PC -c'
g77.exe:f77: scipy\optimize\bvls\bvls.f
scipy\optimize\bvls\bvls.f:1: 
   SUBROUTINE BVLS ( A, B, M, N, BND, X, RNORM, NSETP, W, INDEX, IERR )
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f: In program `MAIN__':
scipy\optimize\bvls\bvls.f:149: 
   integer INDEX(N)
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:154: 
         real*8, parameter :: ZERO = 0E0, ONE=1E0, TWO = 2E0
         ^
Fortran 90 feature at (^) unsupported
scipy\optimize\bvls\bvls.f:145: 
         integer IERR, M, N
                       1
scipy\optimize\bvls\bvls.f:155: (continued):
         real*8 :: A(M,N), B(M), S(N), X(N), W(N),&
                     2
Invalid declaration of or reference to symbol `m' at (2) [initially seen at (1)]
scipy\optimize\bvls\bvls.f:145: 
         integer IERR, M, N
                          1
scipy\optimize\bvls\bvls.f:155: (continued):
         real*8 :: A(M,N), B(M), S(N), X(N), W(N),&
                       2
Invalid declaration of or reference to symbol `n' at (2) [initially seen at (1)]
scipy\optimize\bvls\bvls.f:155: 
         real*8 :: A(M,N), B(M), S(N), X(N), W(N),&
                                                  ^
Invalid form for type-declaration statement at (^)
scipy\optimize\bvls\bvls.f:156: 
                                    Z(M), BND(2,N)
                                    1   2
Unrecognized statement name at (1) and invalid form for assignment or statement-function definition at (2)
scipy\optimize\bvls\bvls.f:164: 
   LOOPA: DO
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:169: 
      IF  (IERR.ne.0  .or.  IZ1.gt.IZ2 .or. NSETP.ge.M) exit LOOPA
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:171: 
      CALL  SELECT_ANOTHER_COEFF_TO!_SOLVE_FOR
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:176: 
      IF  ( .not. FIND ) exit LOOPA
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:178: 
      CALL  MOVE_J_FROM_SET_Z_TO_SET_P
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:180: 
      CALL  TEST_SET_P_AGAINST_CONSTRAINTS
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:185: 
   END DO LOOPA
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:188: 
   RETURN
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:191: 
   SUBROUTINE INITIALIZE
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:197: 
      IF  (M.le.0 .or. N.le.0) then
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:155: 
         real*8 :: A(M,N), B(M), S(N), X(N), W(N),&
                   1
scipy\optimize\bvls\bvls.f:198: (continued):
         IERR = 1
         2
Invalid declaration of or reference to symbol `a' at (2) [initially seen at (1)]
scipy\optimize\bvls\bvls.f:155: 
         real*8 :: A(M,N), B(M), S(N), X(N), W(N),&
                           1
scipy\optimize\bvls\bvls.f:198: (continued):
         IERR = 1
         2
Invalid declaration of or reference to symbol `b' at (2) [initially seen at (1)]
scipy\optimize\bvls\bvls.f:155: 
         real*8 :: A(M,N), B(M), S(N), X(N), W(N),&
                                 1
scipy\optimize\bvls\bvls.f:198: (continued):
         IERR = 1
         2
Invalid declaration of or reference to symbol `s' at (2) [initially seen at (1)]
scipy\optimize\bvls\bvls.f:155: 
         real*8 :: A(M,N), B(M), S(N), X(N), W(N),&
                                       1
scipy\optimize\bvls\bvls.f:198: (continued):
         IERR = 1
         2
Invalid declaration of or reference to symbol `x' at (2) [initially seen at (1)]
scipy\optimize\bvls\bvls.f:155: 
         real*8 :: A(M,N), B(M), S(N), X(N), W(N),&
                                             1
scipy\optimize\bvls\bvls.f:198: (continued):
         IERR = 1
         2
Invalid declaration of or reference to symbol `w' at (2) [initially seen at (1)]
scipy\optimize\bvls\bvls.f:200: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:204: 
      IF(SIZE(X).lt.N) THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:207: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:208: 
      IF(SIZE(B).lt.M) THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:211: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:212: 
      IF(SIZE(BND,1).ne.2) THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:215: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:216: 
      IF(SIZE(BND,2).lt.N) THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:219: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:220: 
      IF(SIZE(W).lt.N) THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:223: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:224: 
      IF(SIZE(INDEX).lt.N) THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:227: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:229: 
   IERR = 0
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:233: 
      EPS = EPSILON(ONE)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:234: 
      ITMAX=3*N
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:235: 
      ITER=0
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:239: 
      DO I=1,N
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:240: 
         INDEX(I)=I
         ^
Invalid declaration of or reference to symbol `index' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:241: 
      END DO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:243: 
      IZ2=N
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:244: 
      IZ1=1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:245: 
      NSETP=0
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:246: 
      NPP1=1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:250: 
      IZ=IZ1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:251: 
      DO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:252: 
         IF  (IZ.gt.IZ2 ) EXIT
         1                2
Statement at (2) invalid in context established by statement at (1)
scipy\optimize\bvls\bvls.f:254: 
         IF  ( BND(1,J).le.-huge(ONE)) then
               ^
Invalid declaration of or reference to symbol `bnd' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:254: warning:
         IF  ( BND(1,J).le.-huge(ONE)) then
                            ^
Reference to unimplemented intrinsic `HUGE' at (^) (assumed EXTERNAL)
scipy\optimize\bvls\bvls.f:254: 
         IF  ( BND(1,J).le.-huge(ONE)) then
                            ^
Invalid declaration of or reference to symbol `huge' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:260: 
        ELSE  IF  ( BND(2,J).ge.huge(ONE)) then
                  ^
Invalid form for END statement at (^)
scipy\optimize\bvls\bvls.f:262: 
        else
         ^
Invalid form for assignment statement at (^)
scipy\optimize\bvls\bvls.f:285: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:294: 
      END DO! ( IZ   <=   IZ2 )
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:295: 
   END SUBROUTINE! ( INITIALIZE )
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:297: 
   SUBROUTINE  SELECT_ANOTHER_COEFF_TO!_SOLVE_FOR
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:318: 
      FIND = .FALSE.
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:319: 
      DO IZ=IZ1,IZ2
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:329: 
        FREE1 = X(J).gt.BND(1,J)
         ^
Invalid form for assignment statement at (^)
scipy\optimize\bvls\bvls.f:339: warning:
              W(J)=dot_product(A(NPP1:M,J),B(NPP1:M))
                   ^
Reference to unimplemented intrinsic `DOT_PRODUCT' at (^) (assumed EXTERNAL)
scipy\optimize\bvls\bvls.f:339: 
              W(J)=dot_product(A(NPP1:M,J),B(NPP1:M))
                   ^
Invalid declaration of or reference to symbol `dot_product' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:344: 
                IF  ( FREE1 ) &
                              ^
Invalid form for IF statement at (^)
scipy\optimize\bvls\bvls.f:347: 
                IF  ( FREE2 ) &
                              ^
Invalid form for IF statement at (^)
scipy\optimize\bvls\bvls.f:352: 
      END DO!  IZ
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:353: 
   END SUBROUTINE! ( SELECT ANOTHER COEF TO SOLVE FOR )
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:355: 
   SUBROUTINE TEST_COEF_J_FOR_DIAG!_ELT_AND_DIRECTION_OF_CHANGE
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:365: 
      ASAVE=A(NPP1,J)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:366: 
      call HTC (NPP1, A(1:M,J), UP)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:367: 
      UNORM = NRM2(A(1:NSETP,J))
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:368: 
      IF  ( abs(A(NPP1,J)).gt.EPS * UNORM) then
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:372: 
         Z(1:M)=B(1:M)
         ^
Invalid declaration of or reference to symbol `z' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:396: 
            FIND = ( W(J).lt.ZERO  .and.  ZTEST.lt.X(J) )  .or. &
                                                           1    2
Missing operand for operator at (1) at end of expression at (2)
scipy\optimize\bvls\bvls.f:396: 
            FIND = ( W(J).lt.ZERO  .and.  ZTEST.lt.X(J) )  .or. &
                                                                ^
Invalid form for assignment statement at (^)
scipy\optimize\bvls\bvls.f:397: 
            ( W(J).gt.ZERO  .and.  ZTEST.gt.X(J) )
            ^
Statement at (^) begins with invalid token [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:399: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:406: 
      IF  ( .not. FIND ) then
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:409: 
      END IF! ( .not. FIND )
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:410: 
   END SUBROUTINE !TEST_COEF_J_FOR_DIAG!_ELT_AND_DIRECTION_OF_CHANGE
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:412: 
   SUBROUTINE MOVE_J_FROM_SET_Z_TO_SET_P
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:422: 
      B(1:M)=Z(1:M)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:424: 
      INDEX(IZ)=INDEX(IZ1)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:425: 
      INDEX(IZ1)=J
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:426: 
      IZ1=IZ1+1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:427: 
      NSETP=NPP1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:428: 
      NPP1=NPP1+1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:432: 
      NORM=A(NSETP,J); A(NSETP,J)=UP
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:433: 
      IF(ABS(NORM).gt.ZERO) THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:440: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:444: 
      DO L=NPP1,M
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:446: 
      END DO!  L
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:448: 
      W(J)=ZERO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:452: 
      DO I = NSETP, 1, -1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:456: 
      END DO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:457: 
   END SUBROUTINE! ( MOVE J FROM SET Z TO SET P )
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:459: 
   SUBROUTINE TEST_SET_P_AGAINST_CONSTRAINTS
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:465: 
      LOOPB: DO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:470: 
         IF  (ITER.gt.ITMAX) then
         1
scipy\optimize\bvls\bvls.f:472: (continued):
            exit LOOPB
            2
Statement at (2) invalid in context established by statement at (1)
scipy\optimize\bvls\bvls.f:480: 
        IF  ( .not. HITBND ) exit LOOPB
                             ^
Invalid form for CALL statement at (^)
scipy\optimize\bvls\bvls.f:502: 
            IF  (NSETP.le.0) exit LOOPB
                                  ^
Construct name at (^) does not match construct name for any containing DO constructs
scipy\optimize\bvls\bvls.f:532: 
      END DO LOOPB
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:536: 
      DO IP=1,NSETP
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:539: 
      END DO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:541: 
   END SUBROUTINE! ( TEST SET P AGAINST CONSTRAINTS)
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:543: 
   SUBROUTINE  SEE_IF_ALL_CONSTRAINED_COEFFS!_ARE_FEASIBLE
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:555: 
      ALPHA=TWO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:556: 
      DO IP=1,NSETP
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:580: 
      END DO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:581: 
   HITBND = abs(ALPHA   -  TWO).gt.ZERO
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:582: 
   END SUBROUTINE!( SEE IF ALL CONSTRAINED COEFFS ARE FEASIBLE )
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:584: 
   SUBROUTINE MOVE_COEF_I_FROM_SET_P_TO_SET_Z
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:590: 
      X(I)=BND(IBOUND,I)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:591: 
      IF  (abs(X(I)).gt.ZERO .and.  JJ.gt.0) B(1:JJ)=B(1:JJ)-A(1:JJ,I)*X(I)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:595: 
      DO J = JJ+1, NSETP
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:610: 
      END DO
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:612: 
      NPP1=NSETP
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:613: 
      NSETP=NSETP-1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:614: 
      IZ1=IZ1-1
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:615: 
      INDEX(IZ1)=I
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:616: 
   END SUBROUTINE! ( MOVE COEF I FROM SET P TO SET Z )
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:618: 
   SUBROUTINE TERMINATION
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:624: 
      IF  (IERR.le.0) then
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:630: 
            SM=NRM2(B(NPP1:M))
               ^
Invalid declaration of or reference to symbol `nrm2' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:635: 
      END IF! ( IERR...)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:636: 
   END SUBROUTINE! ( TERMINATION )
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:638: 
   SUBROUTINE ROTG(SA,SB,C,S)
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:644: 
      REAL*8 SA,SB,C,S,ROE,SCALE,R
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:646: 
      ROE = SB
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:647: 
      IF( ABS(SA) .GT. ABS(SB) ) ROE = SA
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:648: 
      SCALE = ABS(SA) + ABS(SB)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:649: 
      IF( SCALE .LE. ZERO ) THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:650: 
         C = ONE
         ^
Invalid declaration of or reference to symbol `c' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:653: 
     END IF
     ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:654: 
      R = SCALE*SQRT((SA/SCALE)**2 + (SB/SCALE)**2)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:655: 
      IF(ROE.lt.ZERO)R=-R
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:656: 
      C = SA/R
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:657: 
      S = SB/R
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:658: 
      SA = R
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:659: 
      RETURN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:660: 
   END SUBROUTINE !ROTG
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:662: 
   REAL*8 FUNCTION NRM2 (X)
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:670: 
      REAL*8 ABSXI, X(:), NORM, SCALE, SSQ
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:671: 
      INTEGER N, IX
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:672: 
      N=SIZE(X)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:673: 
      IF( N.lt.1)THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:675: 
      ELSE IF( N.eq.1 )THEN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:677: 
      ELSE
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:678: 
         SCALE = ZERO
         ^
Invalid declaration of or reference to symbol `scale' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:679: 
         SSQ   = ONE
         ^
Invalid declaration of or reference to symbol `ssq' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:681: 
         DO IX = 1, N
            ^
Invalid declaration of or reference to symbol `ix' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:682: 
            ABSXI = ABS( X( IX ) )
            ^
Invalid declaration of or reference to symbol `absxi' at (^) [initially seen at (^)]
scipy\optimize\bvls\bvls.f:692: 
        NORM  = SCALE * SQRT( SSQ )
              ^
Invalid form for END statement at (^)
scipy\optimize\bvls\bvls.f:693: 
      END IF
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:695: 
      NRM2 = NORM
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:696: 
      RETURN
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:697: 
   END FUNCTION
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:699: 
   SUBROUTINE HTC (P, U, UP)
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:705: 
      INTEGER P
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:706: 
      REAL*8 U(:)
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:707: 
      REAL*8 UP, VNORM
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:708: 
      VNORM=NRM2(U(P:SIZE(U)))
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:709: 
      IF(U(P).gt.ZERO) VNORM=-VNORM
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:710: 
      UP=U(P)-VNORM
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:711: 
      U(P)=VNORM
      ^
Non-numeric character at (^) in label field [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:712: 
   END SUBROUTINE ! HTC
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:714: 
   END SUBROUTINE ! BVLS
   ^
Invalid first character at (^) [info -f g77 M LEX]
scipy\optimize\bvls\bvls.f:683: 
             IF(ABSXI.gt.ZERO )THEN
             ^
End of source file before end of block started at (^)
In file included from scipy\optimize\bvls\bvls.f:0:
scipy\optimize\bvls\bvls.f:158: warning: unused variable 'ztest'
scipy\optimize\bvls\bvls.f:158: warning: unused variable 'up'
scipy\optimize\bvls\bvls.f:158: warning: unused variable 'unorm'
scipy\optimize\bvls\bvls.f:158: warning: unused variable 'ss'
scipy\optimize\bvls\bvls.f:157: warning: unused variable 'eps'
scipy\optimize\bvls\bvls.f:157: warning: unused variable 'cc'
scipy\optimize\bvls\bvls.f:157: warning: unused variable 'asave'
scipy\optimize\bvls\bvls.f:154: warning: unused variable 'two'
scipy\optimize\bvls\bvls.f:154: warning: unused variable 'one'
scipy\optimize\bvls\bvls.f:147: warning: unused variable 'npp1'
scipy\optimize\bvls\bvls.f:147: warning: unused variable 'l'
scipy\optimize\bvls\bvls.f:147: warning: unused variable 'j'
scipy\optimize\bvls\bvls.f:146: warning: unused variable 'ii'
scipy\optimize\bvls\bvls.f:144: warning: unused variable 'free2'
scipy\optimize\bvls\bvls.f:144: warning: unused variable 'free1'
scipy\optimize\bvls\bvls.f:144: warning: unused variable 'hitbnd'
error: Command "C:\MinGW\bin\g77.exe -g -Wall -fno-second-underscore -mno-cygwin -O3 -funroll-loops -Ibuild\src.win32-2.7 -IC:\Python27\lib\site-packages\numpy\core\include -IC:\Python27\include -IC:\Python27\PC -c -c scipy\optimize\bvls\bvls.f -o build\temp.win32-2.7\Release\scipy\optimize\bvls\bvls.o" failed with exit status 1