anchor.diff:        end if
       end if
     end do
  -  dnrm2 = scale * sqrt( ssq )
  +  dnrm2 = scale * dsqrt( ssq )
   end function dnrm2
positive.code:   end if
    !..
    if ( N == 1 ) then
      dnrm2 = abs( dx( 1 ) )
      return
    end if
    ! ..
  
negative.code:   integer :: i
    ! ..
    ! Intrinsic functions:
    intrinsic dabs, dsqrt
    ! ..
    dnrm2 = 0.0d0
    ! ..
  