Changeset 13938


Ignore:
Timestamp:
Nov 3, 2019 10:44:08 AM (11 days ago)
Author:
Christian Andersson
Message:

Updated escape of characters in tests. Related to ticket:5867

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev-MSL323-MVD/Compiler/ModelicaFrontEnd/test/modelica/FunctionTests.mo

    r13935 r13938  
    1364413644  ncol := size(A, 2);
    1364513645  init work as Real[3 * size(A, 2)];
    13646   external "FORTRAN 77" dgeqpf(m, ncol, QR, lda, p, tau, work, info);
     13646  external \"FORTRAN 77\" dgeqpf(m, ncol, QR, lda, p, tau, work, info);
    1364713647  return;
    1364813648 end Modelica.Math.Matrices.LAPACK.dgeqpf;
     
    1370313703  ncol := size(A, 2);
    1370413704  init tau as Real[size(A, 2)];
    13705   assert(nrow >= ncol, "\nInput matrix A[" + String(nrow) + "," + String(ncol) + "] has more columns as rows.
    13706 This is not allowed when calling Modelica.Matrices.QR(A).");
     13705  assert(nrow >= ncol, \"\\nInput matrix A[\" + String(nrow) + \",\" + String(ncol) + \"] has more columns as rows.
     13706This is not allowed when calling Modelica.Matrices.QR(A).\");
    1370713707  if pivoting then
    1370813708   (Q, tau, p) := Modelica.Math.Matrices.LAPACK.dgeqpf(A);
     
    1375313753  ncol := size(A, 2);
    1375413754  init work as Real[3 * size(A, 2)];
    13755   external "FORTRAN 77" dgeqpf(m, ncol, QR, lda, p, tau, work, info);
     13755  external \"FORTRAN 77\" dgeqpf(m, ncol, QR, lda, p, tau, work, info);
    1375613756  return;
    1375713757 end Modelica.Math.Matrices.LAPACK.dgeqpf;
     
    1378013780  lda := max(1, m);
    1378113781  lwork := 3 * max(1, n);
    13782   external "FORTRAN 77" dgeqrf(m, n, Aout, lda, tau, work, lwork, info);
     13782  external \"FORTRAN 77\" dgeqrf(m, n, Aout, lda, tau, work, lwork, info);
    1378313783  return;
    1378413784 end Modelica.Math.Matrices.LAPACK.dgeqrf;
     
    1380813808  lwork := max(1, min(10, size(QR, 2)) * size(QR, 2));
    1380913809  init work as Real[max(1, min(10, size(QR, 2)) * size(QR, 2))];
    13810   external "FORTRAN 77" dorgqr(m, n, k, Q, lda, tau, work, lwork, info);
     13810  external \"FORTRAN 77\" dorgqr(m, n, k, Q, lda, tau, work, lwork, info);
    1381113811  return;
    1381213812 end Modelica.Math.Matrices.LAPACK.dorgqr;
Note: See TracChangeset for help on using the changeset viewer.