Compile Error 84 "FUNCTION Type Conflict"

Product Version(s): 3.20
Operating System:   MS-DOS
Flags: ENDUSER |
Last Modified: 12-MAY-1988    ArticleIdent: Q10651

Problem:
   The compiler generates an error 84 "FUNCTION type conflict" if an
implicitly typed INTEGER function contains an IMPLICIT INTEGER*2
declaration. The following program demonstrates the problem:

   function nvalue (nvar,mxcol,str)
   implicit integer*2 (a-z)
   real*4 fr
   dimension nvar(8,8),nfval(8,8),str(8,8),kpl(2)
   common fr
   mycol = 3 - mxcol
   do 1 i=1,8
   do 1 j=1,8 1 nfval(i,j)=0
   do 50 i=1,8
   do 50 j=1,8
   if (nvar(i,j).ne.0) nfval(i,j)=
   + ntot(i,j,nvar(i,j),nvar,str) 50 continue
   kpl(1)=0
   kpl(2)=0
   do 80 i=1,8
   do 80 j=1,8
   if (nvar(i,j).ne.0) kpl(nvar(i,j)) = kpl(nvar(i,j)) +nfval(i,j) 80 continu
   nvalue= kpl(mxcol) - kpl(mycol)
   if (kpl(mycol).eq.0) nvalue=nvalue + 500
   return
   end

Response:
   Microsoft confirmed this to be a problem in Version 3.20 of the
FORTRAN compiler.
   The problem was corrected in Version 3.30.
