anchor.diff:        IF( NUMMSG.EQ.MAXMSG ) CALL ERRMSG( &
             'Too many input errors.  Aborting...', .TRUE. )
   
  -      END
  +      END FUNCTION
   
         LOGICAL FUNCTION WrtDim( DIMNAM, MINVAL )
   
  
positive.code: 
        WRTDIM = .TRUE.
  
        END
  
  end module
  
negative.code: 
        END IF
  
        END SUBROUTINE
  
        LOGICAL FUNCTION WrtBad( VARNAM )
  
  