* installing *source* package ‘quantreg’ ...
** package ‘quantreg’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘clang version 18.1.2’
using Fortran compiler: ‘flang-new version 18.1.2’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/quantreg/src'
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c akj.f -o akj.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c boot.f -o boot.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c bound.f -o bound.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c boundc.f -o boundc.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c brute.f -o brute.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c chlfct.f -o chlfct.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c cholesky.f -o cholesky.o
./cholesky.f:2948:26: portability: deprecated usage
IF ( NODE ) 400, 900, 500
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cholesky.f:2948:26: in the context: arithmetic IF statement
IF ( NODE ) 400, 900, 500
^
./cholesky.f:2948:7: in the context: execution part construct
IF ( NODE ) 400, 900, 500
^
./cholesky.f:2912:7: in the context: execution part
ISTRT = XADJ(MDNODE)
^
./cholesky.f:2891:7: in the context: SUBROUTINE subprogram
SUBROUTINE MMDELM ( MDNODE, XADJ, ADJNCY, DHEAD, DFORW,
^
./cholesky.f:2982:18: portability: deprecated usage
IF ( RNODE ) 1100, 1800, 1200
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cholesky.f:2982:18: in the context: arithmetic IF statement
IF ( RNODE ) 1100, 1800, 1200
^
./cholesky.f:2982:7: in the context: execution part construct
IF ( RNODE ) 1100, 1800, 1200
^
./cholesky.f:2912:7: in the context: execution part
ISTRT = XADJ(MDNODE)
^
./cholesky.f:2891:7: in the context: SUBROUTINE subprogram
SUBROUTINE MMDELM ( MDNODE, XADJ, ADJNCY, DHEAD, DFORW,
^
./cholesky.f:3299:22: portability: deprecated usage
IF ( ENODE ) 400, 800, 500
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cholesky.f:3299:22: in the context: arithmetic IF statement
IF ( ENODE ) 400, 800, 500
^
./cholesky.f:3299:7: in the context: execution part construct
IF ( ENODE ) 400, 800, 500
^
./cholesky.f:3266:7: in the context: execution part
MDEG0 = MDEG + DELTA
^
./cholesky.f:3249:7: in the context: SUBROUTINE subprogram
SUBROUTINE MMDUPD ( EHEAD, NEQNS, XADJ, ADJNCY, DELTA,
^
./cholesky.f:3356:30: portability: deprecated usage
IF ( NODE ) 1000, 2100, 1100
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cholesky.f:3356:30: in the context: arithmetic IF statement
IF ( NODE ) 1000, 2100, 1100
^
./cholesky.f:3356:7: in the context: execution part construct
IF ( NODE ) 1000, 2100, 1100
^
./cholesky.f:3266:7: in the context: execution part
MDEG0 = MDEG + DELTA
^
./cholesky.f:3249:7: in the context: SUBROUTINE subprogram
SUBROUTINE MMDUPD ( EHEAD, NEQNS, XADJ, ADJNCY, DELTA,
^
./cholesky.f:3430:42: portability: deprecated usage
IF ( NODE ) 1700, 2000, 1800
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cholesky.f:3430:42: in the context: arithmetic IF statement
IF ( NODE ) 1700, 2000, 1800
^
./cholesky.f:3430:7: in the context: execution part construct
IF ( NODE ) 1700, 2000, 1800
^
./cholesky.f:3266:7: in the context: execution part
MDEG0 = MDEG + DELTA
^
./cholesky.f:3249:7: in the context: SUBROUTINE subprogram
SUBROUTINE MMDUPD ( EHEAD, NEQNS, XADJ, ADJNCY, DELTA,
^
./cholesky.f:65:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^
./cholesky.f:718:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^^^^^^^^^^^
./cholesky.f:809:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^^^^^^^^^^^
./cholesky.f:897:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^^^^^^^^^^^
./cholesky.f:923:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^^^^^^^^^^^
./cholesky.f:2553:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^
./cholesky.f:3703:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^^^
./cholesky.f:3891:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^^^
./cholesky.f:4171:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^^^
./cholesky.f:4689:2: warning: Compiler directive was ignored
CDIR$ IVDEP
^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c combos.f -o combos.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c crqf.f -o crqf.o
./crqf.f:94:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 5 I=1,M
^^^^^^^^^^
./crqf.f:99:4: DO loop currently ends at statement:
5 WA(I,J) = X(I,J)
^^^^^^^^^^^^^^^^^^^^^
./crqf.f:98:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 5 J=1,N
^^^^^^^^^^
./crqf.f:99:4: DO loop currently ends at statement:
5 WA(I,J) = X(I,J)
^^^^^^^^^^^^^^^^^^^^^
./crqf.f:139:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 25 J=1,N
^^^^^^^^^^^
./crqf.f:140:3: DO loop currently ends at statement:
25 WA(L,J) = X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:148:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 J = 1,N
^^^^^^^^^^^^^
./crqf.f:149:3: DO loop currently ends at statement:
50 SOL(J+1,1) = WF(J)
^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:164:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 J = 1,N
^^^^^^^^^^^^^
./crqf.f:165:3: DO loop currently ends at statement:
60 XH(K,J) = X(I,J)
^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:177:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 90 I=1,M
^^^^^^^^^^^
./crqf.f:181:3: DO loop currently ends at statement:
90 WE(I) = S
^^^^^^^^^^^^^
./crqf.f:179:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 J = 1,N
^^^^^^^^^^^^^
./crqf.f:180:3: DO loop currently ends at statement:
80 S = S - WF(J)*X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:191:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 210 J=2,N
^^^^^^^^^^^^
./crqf.f:192:2: DO loop currently ends at statement:
210 S = DMIN1(WD(J),S)
^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:204:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 240 J=1,N
^^^^^^^^^^^^
./crqf.f:205:2: DO loop currently ends at statement:
240 SOL(J+1,LSOL) = WF(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:225:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 250 I=1,M
^^^^^^^^^^^^
./crqf.f:226:2: DO loop currently ends at statement:
250 WD(I) = ZERO
^^^^^^^^^^^^^^^^^
./crqf.f:227:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 J=1,N
^^^^^^^^^^^^
./crqf.f:228:2: DO loop currently ends at statement:
260 WD(H(J)) = ONE
^^^^^^^^^^^^^^^^^^^
./crqf.f:235:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 J=1,N
^^^^^^^^^^^^
./crqf.f:236:2: DO loop currently ends at statement:
270 S = S + X(I,J)*XH(J,KM)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:256:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 310 K = 1,N
^^^^^^^^^^^^^^
./crqf.f:259:2: DO loop currently ends at statement:
310 XH(K,J) = X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:258:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 310 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:259:2: DO loop currently ends at statement:
310 XH(K,J) = X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:270:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 340 K = 1,N
^^^^^^^^^^^^^^
./crqf.f:274:2: DO loop currently ends at statement:
340 WF(K) = S
^^^^^^^^^^^^^^
./crqf.f:272:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 330 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:273:2: DO loop currently ends at statement:
330 S = S + XH(K,J)*Y(H(J))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:275:2: portability: A DO loop should terminate with an END DO or CONTINUE
345 DO 360 I=1,M
^^^^^^^^^^^^^^^^^
./crqf.f:279:2: DO loop currently ends at statement:
360 WE(I) = S
^^^^^^^^^^^^^^
./crqf.f:277:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 350 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:278:2: DO loop currently ends at statement:
350 S = S - WF(J)*X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:286:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 370 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:287:2: DO loop currently ends at statement:
370 SOL(J+1,LSOL) = WF(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:328:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 396 J=1,N
^^^^^^^^^^^^
./crqf.f:330:1: DO loop currently ends at statement:
396 B2 = B2 + X(I,J) * SOL(J+1,LSOL - 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:368:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 506 J=1,N
^^^^^^^^^^^^
./crqf.f:369:2: DO loop currently ends at statement:
506 WF(J) = ZERO
^^^^^^^^^^^^^^^^^
./crqf.f:375:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 510 J=1,N
^^^^^^^^^^^^
./crqf.f:376:2: DO loop currently ends at statement:
510 WA(L1,J) = X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:378:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 514 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:379:2: DO loop currently ends at statement:
514 WF(J) = WF(J) + X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:387:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 520 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:389:2: DO loop currently ends at statement:
520 WF(J) = WF(J) + (ONE - W) * X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:393:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 534 J=1,N
^^^^^^^^^^^^
./crqf.f:394:2: DO loop currently ends at statement:
534 WA(MAL,J) = WF(J)
^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:412:13: portability: A DO loop should terminate with an END DO or CONTINUE
DO 540 J=1,N
^^^^^^^^^^^^
./crqf.f:413:2: DO loop currently ends at statement:
540 XH(K,J) = X(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:428:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 610 I=1,L
^^^^^^^^^^^^
./crqf.f:429:2: DO loop currently ends at statement:
610 WD(I) = SOL(N+2,I)
^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:435:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 650 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:441:2: DO loop currently ends at statement:
650 WF(J) = S/V
^^^^^^^^^^^^^^^^
./crqf.f:442:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 670 I = 1,LSOL
^^^^^^^^^^^^^^^^^
./crqf.f:446:2: DO loop currently ends at statement:
670 SOL(N+2,I) = S
^^^^^^^^^^^^^^^^^^^
./crqf.f:444:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 660 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:445:2: DO loop currently ends at statement:
660 S = S + WF(J) * SOL(J+1,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:484:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 70 J = 1,N
^^^^^^^^^^^^^
./crqf.f:488:3: DO loop currently ends at statement:
70 WA(I,J) = A
^^^^^^^^^^^^^^^
./crqf.f:486:9: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 K = 1,N
^^^^^^^^^^^^^
./crqf.f:487:3: DO loop currently ends at statement:
60 A = A + X(I,K)*XH(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqf.f:496:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 90 I = 1,M
^^^^^^^^^^^^^
./crqf.f:497:3: DO loop currently ends at statement:
90 IFLAG(I) = 0
^^^^^^^^^^^^^^^^
./crqf.f:498:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 95 J = 1,N
^^^^^^^^^^^^^
./crqf.f:499:3: DO loop currently ends at statement:
95 IFLAG(H(J)) = 1
^^^^^^^^^^^^^^^^^^^
./crqf.f:543:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 130 J = 1,N
^^^^^^^^^^^^^^
./crqf.f:544:2: DO loop currently ends at statement:
130 IFLAG(J) = IFLAG(J+M)
^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c crqfnb.f -o crqfnb.o
./crqfnb.f:29:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(n,y,1,d,1)
^^^^^^^^^^^^^^^^^^^^^
./crqfnb.f:28:7: previous reference to 'dcopy'
call dcopy(p,wp,1,b(1,k-1),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqfnb.f:30:7: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
call dgemv('N',n,p,one,x,n,b(1,k-1),1,one,d,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./crqfnb.f:23:7: previous reference to 'dgemv'
call dgemv('T',n,p,one,x,n,d,1,zero,r,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c dsel05.f -o dsel05.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c extract.f -o extract.o
/usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c frand.c -o frand.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c grexp.f -o grexp.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c idmin.f -o idmin.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c iswap.f -o iswap.o
./iswap.f:40:7: portability: deprecated usage
IF (INCX-1) 5,20,60
^^^^^^^^^^^^^^^^^^^
./iswap.f:40:7: in the context: arithmetic IF statement
IF (INCX-1) 5,20,60
^
./iswap.f:40:7: in the context: execution part construct
IF (INCX-1) 5,20,60
^
./iswap.f:38:7: in the context: execution part
IF (N .LE. 0) RETURN
^
./iswap.f:1:7: in the context: SUBROUTINE subprogram
SUBROUTINE ISWAP (N, IX, INCX, IY, INCY)
^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c kuantile.f -o kuantile.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c kuantiles.f -o kuantiles.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c linpack.f -o linpack.o
/usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c mcmb.c -o mcmb.o
./linpack.f:230:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(n,s,z,1)
^^^^^^^^^^^^^^^^^^^
./linpack.f:98:13: previous reference to 'dscal'
call dscal(k-1,t,a(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./linpack.f:263:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(n,s,z,1)
^^^^^^^^^^^^^^^^^^^
./linpack.f:98:13: previous reference to 'dscal'
call dscal(k-1,t,a(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./linpack.f:272:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(n,s,z,1)
^^^^^^^^^^^^^^^^^^^
./linpack.f:98:13: previous reference to 'dscal'
call dscal(k-1,t,a(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./linpack.f:280:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(n,s,z,1)
^^^^^^^^^^^^^^^^^^^
./linpack.f:98:13: previous reference to 'dscal'
call dscal(k-1,t,a(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./linpack.f:294:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(n,s,z,1)
^^^^^^^^^^^^^^^^^^^
./linpack.f:98:13: previous reference to 'dscal'
call dscal(k-1,t,a(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./linpack.f:299:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(n,s,z,1)
^^^^^^^^^^^^^^^^^^^
./linpack.f:98:13: previous reference to 'dscal'
call dscal(k-1,t,a(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./linpack.f:308:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(n,s,z,1)
^^^^^^^^^^^^^^^^^^^
./linpack.f:98:13: previous reference to 'dscal'
call dscal(k-1,t,a(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./linpack.f:318:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(n,s,z,1)
^^^^^^^^^^^^^^^^^^^
./linpack.f:98:13: previous reference to 'dscal'
call dscal(k-1,t,a(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
mcmb.c:175:16: warning: variable 'mm' set but not used [-Wunused-but-set-variable]
175 | unsigned int mm;
| ^
mcmb.c:176:32: warning: variable 'large' set but not used [-Wunused-but-set-variable]
176 | double taustar, pwtsum, ans, large;
| ^
2 warnings generated.
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c penalty.f -o penalty.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c pfnb.f -o pfnb.o
./pfnb.f:76:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(p,glob,1,aa(1,k+1),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:57:7: previous reference to 'dcopy'
call dcopy(p,a(1,i),1,aa(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:77:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(p,ghib,1,aa(1,k+2),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:57:7: previous reference to 'dcopy'
call dcopy(p,a(1,i),1,aa(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:84:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(p,wp,1,b(1,iq),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:57:7: previous reference to 'dcopy'
call dcopy(p,a(1,i),1,aa(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:85:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(n,y,1,r,1)
^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:57:7: previous reference to 'dcopy'
call dcopy(p,a(1,i),1,aa(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:86:7: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
call dgemv('T',p,n,one,a,p,b(1,iq),1,one,r,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pfnb.f:80:7: previous reference to 'dgemv'
call dgemv('N',p,k+2,one-tau,aa,p,d,1,zero,rhs,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c powell.f -o powell.o
./powell.f:67:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call daxpy(p,step,d,1,xh,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./powell.f:58:7: previous reference to 'daxpy'
call daxpy(p,one,u(1,k),1,d,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./powell.f:103:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(p,a(hin,1),n,v,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./powell.f:65:7: previous reference to 'dcopy'
call dcopy(p,x,1,xh,1)
^^^^^^^^^^^^^^^^^^^^^^
./powell.f:105:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(p,b(1,k),1,v,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./powell.f:65:7: previous reference to 'dcopy'
call dcopy(p,x,1,xh,1)
^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c profnb.f -o profnb.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c pwxy.f -o pwxy.o
./pwxy.f:50:7: warning: Reference to the procedure 'dphil' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dphil(p,zero,aa(1,k))
^^^^^^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:42:7: previous reference to 'dphil'
call dphil(p,zero,glob)
^^^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:76:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call daxpy(k+2,one-tau,u,1,wn,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:51:7: previous reference to 'daxpy'
call daxpy(p,w(i),a(1,i),1,aa(1,k),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:78:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(p,wp,1,b(1,ir),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:70:7: previous reference to 'dcopy'
call dcopy(p,glob,1,aa(1,k+1),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:79:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
call dcopy(n,y,1,u,1)
^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:70:7: previous reference to 'dcopy'
call dcopy(p,glob,1,aa(1,k+1),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:80:7: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
call dgemv('T',p,n,one,a,p,b(1,ir),1,one,u,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./pwxy.f:74:7: previous reference to 'dgemv'
call dgemv('N',p,k+2,one-tau,aa,p,d,1,zero,rhs,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c qfnb.f -o qfnb.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c qselect.f -o qselect.o
/usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c quantreg_init.c -o quantreg_init.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rls.f -o rls.o
./rls.f:14:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call daxpy(p,r,ax,1,b(1,i),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rls.f:13:7: previous reference to 'daxpy'
call daxpy(p,one,b(1,i-1),1,b(1,i),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rq0.f -o rq0.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rq1.f -o rq1.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rqbr.f -o rqbr.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rqfn.f -o rqfn.o
./rqfn.f:48:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(n,c,1,s,1)
^^^^^^^^^^^^^^^^^^^^^
./rqfn.f:47:7: previous reference to 'dcopy'
call dcopy(pp,ada,1,aa,1)
^^^^^^^^^^^^^^^^^^^^^^^^^
./rqfn.f:76:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(p,dy,1,rhs,1)
^^^^^^^^^^^^^^^^^^^^^^^^
./rqfn.f:47:7: previous reference to 'dcopy'
call dcopy(pp,ada,1,aa,1)
^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rqfnb.f -o rqfnb.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rqfnc.f -o rqfnc.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rqs.f -o rqs.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c sakj.f -o sakj.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c sparskit2.f -o sparskit2.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c srqfn.f -o srqfn.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c srqfnc.f -o srqfnc.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c srtpai.f -o srtpai.o
./srtpai.f:18:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I = 1, N
^^^^^^^^^^^^^^
./srtpai.f:19:2: DO loop currently ends at statement:
10 P(1, I) = I
^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/clang -shared -L/usr/local/clang/lib64 -L/usr/local/clang18/lib -L/usr/local/clang18/lib/x86_64-unknown-linux-gnu -L/usr/local/gcc13/lib64 -L/usr/local/lib64 -o quantreg.so akj.o boot.o bound.o boundc.o brute.o chlfct.o cholesky.o combos.o crqf.o crqfnb.o dsel05.o extract.o frand.o grexp.o idmin.o iswap.o kuantile.o kuantiles.o linpack.o mcmb.o penalty.o pfnb.o powell.o profnb.o pwxy.o qfnb.o qselect.o quantreg_init.o rls.o rq0.o rq1.o rqbr.o rqfn.o rqfnb.o rqfnc.o rqs.o sakj.o sparskit2.o srqfn.o srqfnc.o srtpai.o -L/data/gannet/ripley/R/R-clang/lib -lRlapack -L/data/gannet/ripley/R/R-clang/lib -lRblas -lFortran_main -lFortranRuntime -lFortranDecimal -lm -lFortran_main -lFortranRuntime -lFortranDecimal -lm
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/quantreg/src'
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/quantreg/src'
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/quantreg/src'
installing to /data/gannet/ripley/R/packages/tests-clang/quantreg.Rcheck/00LOCK-quantreg/00new/quantreg/libs
** R
** data
** demo
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (quantreg)