* installing *source* package ‘wnominate’ ...
** package ‘wnominate’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘clang version 18.1.4’
using Fortran compiler: ‘flang-new version 18.1.4’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/wnominate/src'
/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 init_wnominate.c -o init_wnominate.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 nomprob.c -o nomprob.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 random_wrap.c -o random_wrap.o
/usr/local/clang18/bin/flang-new -O2 -pedantic -fpic -O2 -pedantic -c wnominate.f90 -o wnominate.o
./wnominate.f90:271:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 69 K=1,2
^^^^^^^^^^^
./wnominate.f90:281:2: DO loop currently ends at statement:
69 PSI(I,J,K) = 1.0
^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:272:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 69 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:281:2: DO loop currently ends at statement:
69 PSI(I,J,K) = 1.0
^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:274:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 69 J=1,NRCALL
^^^^^^^^^^^^^^^^
./wnominate.f90:281:2: DO loop currently ends at statement:
69 PSI(I,J,K) = 1.0
^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:310:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 70 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:312:3: DO loop currently ends at statement:
70 SUM=SUM+XDATA(I,K)
^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:313:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 72 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:315:3: DO loop currently ends at statement:
72 BB=AMAX1(BB,XDATA(I,K))
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:316:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 73 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:317:3: DO loop currently ends at statement:
73 XDATA(I,K)=XDATA(I,K)/BB
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:325:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:326:3: DO loop currently ends at statement:
50 SUM=SUM+XDATA(I,K)
^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:418:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 22 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:419:3: DO loop currently ends at statement:
22 XDATA(I,NDIM)=XDATA(I,NDIM)*ALPHA
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:601:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 4 I=1,2
^^^^^^^^^^
./wnominate.f90:607:3: DO loop currently ends at statement:
4 JJ=JJ+1
^^^^^^^^^^^
./wnominate.f90:602:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 4 J=1,2
^^^^^^^^^^
./wnominate.f90:607:3: DO loop currently ends at statement:
4 JJ=JJ+1
^^^^^^^^^^^
./wnominate.f90:651:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 6 I=1,2
^^^^^^^^^^
./wnominate.f90:657:3: DO loop currently ends at statement:
6 JJ=JJ+1
^^^^^^^^^^^
./wnominate.f90:652:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 6 J=1,2
^^^^^^^^^^
./wnominate.f90:657:3: DO loop currently ends at statement:
6 JJ=JJ+1
^^^^^^^^^^^
./wnominate.f90:1095:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 1 I=1,NP
^^^^^^^^^^^
./wnominate.f90:1105:3: DO loop currently ends at statement:
1 NNSUM(I)=JSUM
^^^^^^^^^^^^^^^^^
./wnominate.f90:1098:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 2 J=1,NRCALL
^^^^^^^^^^^^^^^
./wnominate.f90:1103:3: DO loop currently ends at statement:
2 IF(KD(J).EQ.4.OR.KD(J).EQ.5.OR.KD(J).EQ.6)JSUM=JSUM+1
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1382:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 919 K=1,NS
^^^^^^^^^^^^^
./wnominate.f90:1383:3: DO loop currently ends at statement:
919 XXXX(KK,K)=XX(JJ,K)
^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1399:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 1 I=1,NP
^^^^^^^^^^^
./wnominate.f90:1400:3: DO loop currently ends at statement:
1 SUM=SUM+ZZZ(I)
^^^^^^^^^^^^^^^^^^
./wnominate.f90:1401:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 2 I=1,NP
^^^^^^^^^^^
./wnominate.f90:1402:3: DO loop currently ends at statement:
2 ZZZ(I)=ZZZ(I)-(SUM/FLOAT(NP))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1425:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 303 I=1,NP
^^^^^^^^^^^^^
./wnominate.f90:1427:3: DO loop currently ends at statement:
303 Q(I)=X(I)
^^^^^^^^^^^^^
./wnominate.f90:1490:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 11 K=1,NS
^^^^^^^^^^^^
./wnominate.f90:1491:3: DO loop currently ends at statement:
11 SSUMS=SSUMS+(XX(I,K)-XX(J,K))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1528:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 7 K=1,NS
^^^^^^^^^^^
./wnominate.f90:1529:3: DO loop currently ends at statement:
7 SUM=SUM+(XXXX(J,K)-XX(II,K))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1536:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 8 K=1,NS
^^^^^^^^^^^
./wnominate.f90:1537:3: DO loop currently ends at statement:
8 ZZZ(K)=ZZZ(K)+XXXX(J,K)+XC*(XX(II,K)-XXXX(J,K))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1542:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 1 K=1,NS
^^^^^^^^^^^
./wnominate.f90:1543:3: DO loop currently ends at statement:
1 XX(II,K)=ZZZ(K)/FLOAT(KK)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1577:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 41 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:1578:3: DO loop currently ends at statement:
41 XDATA(I,1)=-XDATA(I,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1581:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 43 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:1582:3: DO loop currently ends at statement:
43 XDATA(I,2)=-XDATA(I,2)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1599:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:1603:3: DO loop currently ends at statement:
10 X(I)=XDATA(I,1)
^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1621:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 4 I=1,NP
^^^^^^^^^^^
./wnominate.f90:1624:3: DO loop currently ends at statement:
4 IF(LDATA2(I,J).EQ.6)SUMN=SUMN+XDATA(I,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:1636:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 7 I=1,NP
^^^^^^^^^^^
./wnominate.f90:1638:3: DO loop currently ends at statement:
7 IF(LDATA(I,J).EQ.6)LDATA(I,J)=2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2076:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 120 K = 1, L
^^^^^^^^^^^^^^^
./wnominate.f90:2077:3: DO loop currently ends at statement:
120 SCALE = SCALE + ABS(D(K))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2104:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 J = 1, L
^^^^^^^^^^^^^^^
./wnominate.f90:2105:3: DO loop currently ends at statement:
170 E(J) = 0.0E0
^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2130:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 250 J = 1, L
^^^^^^^^^^^^^^^
./wnominate.f90:2131:3: DO loop currently ends at statement:
250 E(J) = E(J) - H * D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2137:13: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 K = J, L
^^^^^^^^^^^^^^^
./wnominate.f90:2138:3: DO loop currently ends at statement:
260 A(K,J) = A(K,J) - F * E(K) - G * D(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2199:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 J = I, N
^^^^^^^^^^^^^^
./wnominate.f90:2200:4: DO loop currently ends at statement:
80 Z(J,I) = A(J,I)
^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2214:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 120 K = 1, L
^^^^^^^^^^^^^^^
./wnominate.f90:2215:3: DO loop currently ends at statement:
120 SCALE = SCALE + ABS(D(K))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2239:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 J = 1, L
^^^^^^^^^^^^^^^
./wnominate.f90:2240:3: DO loop currently ends at statement:
170 E(J) = 0.0E0
^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2266:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 250 J = 1, L
^^^^^^^^^^^^^^^
./wnominate.f90:2267:3: DO loop currently ends at statement:
250 E(J) = E(J) - HH * D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2273:13: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 K = J, L
^^^^^^^^^^^^^^^
./wnominate.f90:2274:3: DO loop currently ends at statement:
260 Z(K,J) = Z(K,J) - F * E(K) - G * D(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2290:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 330 K = 1, L
^^^^^^^^^^^^^^^
./wnominate.f90:2291:3: DO loop currently ends at statement:
330 D(K) = Z(K,I) / H
^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2296:13: portability: A DO loop should terminate with an END DO or CONTINUE
DO 340 K = 1, L
^^^^^^^^^^^^^^^
./wnominate.f90:2297:3: DO loop currently ends at statement:
340 G = G + Z(K,I) * Z(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2303:3: portability: A DO loop should terminate with an END DO or CONTINUE
380 DO 400 K = 1, L
^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2304:3: DO loop currently ends at statement:
400 Z(K,I) = 0.0E0
^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2382:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 I = 2, N
^^^^^^^^^^^^^^^
./wnominate.f90:2383:3: DO loop currently ends at statement:
100 E(I-1) = E(I)
^^^^^^^^^^^^^^^^^
./wnominate.f90:2416:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 I = L2, N
^^^^^^^^^^^^^^^^
./wnominate.f90:2417:3: DO loop currently ends at statement:
140 D(I) = D(I) - H
^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2534:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 I = 2, N
^^^^^^^^^^^^^^^
./wnominate.f90:2535:3: DO loop currently ends at statement:
100 E2(I-1) = E2(I)
^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2567:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 I = L1, N
^^^^^^^^^^^^^^^^
./wnominate.f90:2568:3: DO loop currently ends at statement:
140 D(I) = D(I) - H
^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2708:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 22 I=1,2
^^^^^^^^^^^
./wnominate.f90:2710:3: DO loop currently ends at statement:
22 MM(I,J)=0
^^^^^^^^^^^^^^^^^^
./wnominate.f90:2709:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 22 J=1,2
^^^^^^^^^^^
./wnominate.f90:2710:3: DO loop currently ends at statement:
22 MM(I,J)=0
^^^^^^^^^^^^^^^^^^
./wnominate.f90:2739:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 21 I=1,2
^^^^^^^^^^^
./wnominate.f90:2743:3: DO loop currently ends at statement:
21 MM(I,J)=MM(I,J)+LL(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2740:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 21 J=1,2
^^^^^^^^^^^
./wnominate.f90:2743:3: DO loop currently ends at statement:
21 MM(I,J)=MM(I,J)+LL(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2770:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 26 I=1,2
^^^^^^^^^^^
./wnominate.f90:2772:3: DO loop currently ends at statement:
26 MM(I,J)=0
^^^^^^^^^^^^^^^^^^
./wnominate.f90:2771:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 26 J=1,2
^^^^^^^^^^^
./wnominate.f90:2772:3: DO loop currently ends at statement:
26 MM(I,J)=0
^^^^^^^^^^^^^^^^^^
./wnominate.f90:2792:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 27 I=1,2
^^^^^^^^^^^
./wnominate.f90:2796:3: DO loop currently ends at statement:
27 MM(I,J)=MM(I,J)+LL(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2793:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 27 J=1,2
^^^^^^^^^^^
./wnominate.f90:2796:3: DO loop currently ends at statement:
27 MM(I,J)=MM(I,J)+LL(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2849:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,NOPAR
^^^^^^^^^^^^^^^
./wnominate.f90:2852:4: DO loop currently ends at statement:
50 TESTB(I)=B(I)
^^^^^^^^^^^^^^^^
./wnominate.f90:2888:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 I=1,3
^^^^^^^^^^^
./wnominate.f90:2893:3: DO loop currently ends at statement:
60 AV(I,KX)=SUM
^^^^^^^^^^^^^^^^
./wnominate.f90:2889:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 KX=1,3
^^^^^^^^^^^^
./wnominate.f90:2893:3: DO loop currently ends at statement:
60 AV(I,KX)=SUM
^^^^^^^^^^^^^^^^
./wnominate.f90:2891:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 61 J=1,3
^^^^^^^^^^^
./wnominate.f90:2892:3: DO loop currently ends at statement:
61 SUM=SUM+ZMAT(KX,J)*(1.0/WVEC(J))*ZMAT(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:2993:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 710 I=1,NOPAR
^^^^^^^^^^^^^^^^
./wnominate.f90:2994:3: DO loop currently ends at statement:
710 B(I)=TESTB(I)
^^^^^^^^^^^^^^^^^
./wnominate.f90:3009:2: portability: A DO loop should terminate with an END DO or CONTINUE
1207 DO 705 I=1,NOPAR
^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3010:3: DO loop currently ends at statement:
705 B(I)=TESTB(I)
^^^^^^^^^^^^^^^^^
./wnominate.f90:3025:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 650 I=1,NOPAR
^^^^^^^^^^^^^^^^
./wnominate.f90:3026:3: DO loop currently ends at statement:
650 TESTB(I)=B(I)
^^^^^^^^^^^^^^^^^
./wnominate.f90:3132:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I=1,NOPAR
^^^^^^^^^^^^^^^
./wnominate.f90:3133:3: DO loop currently ends at statement:
10 TESTB(I)=B(I)+XLBA*DELTAB(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3167:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 2 J=NEQ,NRCALL
^^^^^^^^^^^^^^^^^
./wnominate.f90:3168:3: DO loop currently ends at statement:
2 YBIGL(J)=0.0
^^^^^^^^^^^^^^^^
./wnominate.f90:3174:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 101 J=1,NOPAR
^^^^^^^^^^^^^^^^
./wnominate.f90:3176:3: DO loop currently ends at statement:
101 V(I,J)=0.0
^^^^^^^^^^^^^^
./wnominate.f90:3175:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 101 I=1,NOPAR
^^^^^^^^^^^^^^^^
./wnominate.f90:3176:3: DO loop currently ends at statement:
101 V(I,J)=0.0
^^^^^^^^^^^^^^
./wnominate.f90:3194:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 205 J=1,NOPAR
^^^^^^^^^^^^^^^^
./wnominate.f90:3195:3: DO loop currently ends at statement:
205 GRAD(J)=GRAD(J)+G(J)
^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3200:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 206 L=1,NOPAR
^^^^^^^^^^^^^^^^
./wnominate.f90:3202:3: DO loop currently ends at statement:
206 V(J,L)=V(J,L)+G(J)*G(L)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3201:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 206 J=1,NOPAR
^^^^^^^^^^^^^^^^
./wnominate.f90:3202:3: DO loop currently ends at statement:
206 V(J,L)=V(J,L)+G(J)*G(L)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3272:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 27 JJ=1,5
^^^^^^^^^^^^
./wnominate.f90:3273:3: DO loop currently ends at statement:
27 G(JJ)=0.0
^^^^^^^^^^^^^
./wnominate.f90:3324:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 6 I=1,NQ
^^^^^^^^^^^
./wnominate.f90:3330:3: DO loop currently ends at statement:
6 PHI(NEQ)=PHI(NEQ)+EXB(I,NEQ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3372:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 66 I=1,NQ
^^^^^^^^^^^^
./wnominate.f90:3378:4: DO loop currently ends at statement:
66 PHI(II)=PHI(II)+EXB(I,II)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3420:10: portability: A DO loop should terminate with an END DO or CONTINUE
DO 68 I=1,NQ
^^^^^^^^^^^^
./wnominate.f90:3426:3: DO loop currently ends at statement:
68 PHI(II)=PHI(II)+EXB(I,II)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3614:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 9 K=1,NDIM
^^^^^^^^^^^^^
./wnominate.f90:3615:3: DO loop currently ends at statement:
9 SUM=SUM+ZMID(NEQ,K)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3653:18: portability: A DO loop should terminate with an END DO or CONTINUE
DO 13 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:3654:3: DO loop currently ends at statement:
13 XSP(K)=XDATA(NEQ,K)*(1.0/SQRT(SUM))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3665:18: portability: A DO loop should terminate with an END DO or CONTINUE
DO 15 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:3667:3: DO loop currently ends at statement:
15 ASUM=ASUM+XNEW(K)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3668:18: portability: A DO loop should terminate with an END DO or CONTINUE
DO 18 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:3669:3: DO loop currently ends at statement:
18 XNEW(K)=XNEW(K)*(1.0/SQRT(ASUM))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3699:18: portability: A DO loop should terminate with an END DO or CONTINUE
DO 17 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:3702:3: DO loop currently ends at statement:
17 ASUM=ASUM+XDATA(NEQ,K)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3703:18: portability: A DO loop should terminate with an END DO or CONTINUE
DO 19 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:3704:3: DO loop currently ends at statement:
19 XDATA(NEQ,K)=XDATA(NEQ,K)*(1.0/SQRT(ASUM))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3736:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 5 I=1,2
^^^^^^^^^^
./wnominate.f90:3739:3: DO loop currently ends at statement:
5 LL(I,J)=0
^^^^^^^^^^^^^
./wnominate.f90:3738:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 5 J=1,2
^^^^^^^^^^
./wnominate.f90:3739:3: DO loop currently ends at statement:
5 LL(I,J)=0
^^^^^^^^^^^^^
./wnominate.f90:3889:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 1 J=1,NCUT
^^^^^^^^^^^^^
./wnominate.f90:3891:3: DO loop currently ends at statement:
1 ZY(J)=ZF+XINC*(XJ-1.0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:3950:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 11 J=1,NCUTCUT
^^^^^^^^^^^^^^^^^
./wnominate.f90:3952:3: DO loop currently ends at statement:
11 ZY(J)=ZF+XINC*(XJ-1.0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4012:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 34 J=1,KKKCUT
^^^^^^^^^^^^^^^^
./wnominate.f90:4015:3: DO loop currently ends at statement:
34 ZN(J)=B2MAX-XINC*(XJ-1.0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4108:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 54 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:4109:3: DO loop currently ends at statement:
54 SUM=SUM+DYN(NEQ,K)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4116:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 53 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:4120:3: DO loop currently ends at statement:
53 XGAM=XGAM+(ZMID(NEQ,K)-PTB(K))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4147:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 52 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:4148:3: DO loop currently ends at statement:
52 PTC(K)=PTA(K)+(DBETA/2.0)*(PTB(K)-PTA(K))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4155:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 51 K=1,NDIM
^^^^^^^^^^^^^^
./wnominate.f90:4158:3: DO loop currently ends at statement:
51 AA=AA+CMINUSZ(K)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4160:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 58 K=1,NDIM-1
^^^^^^^^^^^^^^^^
./wnominate.f90:4161:3: DO loop currently ends at statement:
58 CC=CC+ZMID(NEQ,K)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4318:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 11 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:4323:3: DO loop currently ends at statement:
11 ESUM=ESUM+XSAVE(I,1,1)*XSAVE(I,2,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4348:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 21 I=1,NP
^^^^^^^^^^^^
./wnominate.f90:4353:3: DO loop currently ends at statement:
21 ESUM=ESUM+XSAVE(I,1,1)*XSAVE(I,2,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4445:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 12 JJ=1,4
^^^^^^^^^^^^
./wnominate.f90:4446:3: DO loop currently ends at statement:
12 KSUM=KSUM+KPJP(I,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4487:12: portability: A DO loop should terminate with an END DO or CONTINUE
DO 14 JJ=1,4
^^^^^^^^^^^^
./wnominate.f90:4488:3: DO loop currently ends at statement:
14 KSUM=KSUM+KPJP(I,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./wnominate.f90:4563:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 3 I=1,NP
^^^^^^^^^^^
./wnominate.f90:4565:3: DO loop currently ends at statement:
3 LMO(I)=I
^^^^^^^^^^^^
/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 wrap_output.c -o wrap_output.o
/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 wnominate.so init_wnominate.o nomprob.o random_wrap.o wnominate.o wrap_output.o -lFortran_main -lFortranRuntime -lFortranDecimal -lm
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/wnominate/src'
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/wnominate/src'
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/wnominate/src'
installing to /data/gannet/ripley/R/packages/tests-clang/wnominate.Rcheck/00LOCK-wnominate/00new/wnominate/libs
** R
** data
** 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 (wnominate)