anchor.diff:      SUBROUTINE DSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, &
           LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, &
           IWORK, INFO )
  -    use lapack_precision, only: dp
  +    import :: dp
       CHARACTER          FACT, UPLO
       INTEGER            INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS
       REAL(dp)           RCOND
  
positive.code: module lapack_precision
  implicit none
  private
  public dp
  
  ! This is the precision that LAPACK "d" routines were compiled with (typically
  ! double precision, unless a special compiler option was used while compiling
  
negative.code:     END SUBROUTINE
  
      REAL(dp) FUNCTION DLAMCH( CMACH )
      import :: dp
      CHARACTER          CMACH
      END FUNCTION
  
  