* installing *source* package ‘minqa’ ...
** package ‘minqa’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using Fortran compiler: ‘flang-new version 18.1.2’
using C++ compiler: ‘clang version 18.1.2’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/minqa/src'
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c altmov.f -o altmov.o
./altmov.f:41:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 K=1,NPT
^^^^^^^^^^^^^
./altmov.f:42:4: DO loop currently ends at statement:
10 HCOL(K)=ZERO
^^^^^^^^^^^^^^^
./altmov.f:43:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 J=1,NPT-N-1
^^^^^^^^^^^^^^^^^
./altmov.f:46:4: DO loop currently ends at statement:
20 HCOL(K)=HCOL(K)+TEMP*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:45:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 K=1,NPT
^^^^^^^^^^^^^
./altmov.f:46:4: DO loop currently ends at statement:
20 HCOL(K)=HCOL(K)+TEMP*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:52:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 I=1,N
^^^^^^^^^^^
./altmov.f:53:4: DO loop currently ends at statement:
30 GLAG(I)=BMAT(KNEW,I)
^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:54:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 K=1,NPT
^^^^^^^^^^^^^
./altmov.f:60:4: DO loop currently ends at statement:
50 GLAG(I)=GLAG(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:56:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 J=1,N
^^^^^^^^^^^
./altmov.f:57:4: DO loop currently ends at statement:
40 TEMP=TEMP+XPT(K,J)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:59:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,N
^^^^^^^^^^^
./altmov.f:60:4: DO loop currently ends at statement:
50 GLAG(I)=GLAG(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:73:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 I=1,N
^^^^^^^^^^^
./altmov.f:76:4: DO loop currently ends at statement:
60 DISTSQ=DISTSQ+TEMP*TEMP
^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:171:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 90 I=1,N
^^^^^^^^^^^
./altmov.f:173:4: DO loop currently ends at statement:
90 XNEW(I)=DMAX1(SL(I),DMIN1(SU(I),TEMP))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:227:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 I=1,N
^^^^^^^^^^^^
./altmov.f:238:3: DO loop currently ends at statement:
140 GW=GW+GLAG(I)*W(I)
^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:246:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 160 K=1,NPT
^^^^^^^^^^^^^^
./altmov.f:250:3: DO loop currently ends at statement:
160 CURV=CURV+HCOL(K)*TEMP*TEMP
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:248:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 J=1,N
^^^^^^^^^^^^
./altmov.f:249:3: DO loop currently ends at statement:
150 TEMP=TEMP+XPT(K,J)*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:254:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 I=1,N
^^^^^^^^^^^^
./altmov.f:256:3: DO loop currently ends at statement:
170 XALT(I)=DMAX1(SL(I),DMIN1(SU(I),TEMP))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:267:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 I=1,N
^^^^^^^^^^^^
./altmov.f:269:3: DO loop currently ends at statement:
180 W(N+I)=XALT(I)
^^^^^^^^^^^^^^^^^^^^^^
./altmov.f:275:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 190 I=1,N
^^^^^^^^^^^^
./altmov.f:276:3: DO loop currently ends at statement:
190 XALT(I)=W(N+I)
^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c bigden.f -o bigden.o
./bigden.f:44:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 K=1,NPT
^^^^^^^^^^^^^
./bigden.f:45:4: DO loop currently ends at statement:
10 W(N+K)=ZERO
^^^^^^^^^^^^^^
./bigden.f:46:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 J=1,NPTM
^^^^^^^^^^^^^^
./bigden.f:50:4: DO loop currently ends at statement:
20 W(N+K)=W(N+K)+TEMP*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:49:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 K=1,NPT
^^^^^^^^^^^^^
./bigden.f:50:4: DO loop currently ends at statement:
20 W(N+K)=W(N+K)+TEMP*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:62:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 I=1,N
^^^^^^^^^^^
./bigden.f:67:4: DO loop currently ends at statement:
30 XOPTSQ=XOPTSQ+XOPT(I)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:75:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 I=1,N
^^^^^^^^^^^
./bigden.f:78:4: DO loop currently ends at statement:
40 SSTEMP=SSTEMP+DIFF*DIFF
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:87:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 I=1,N
^^^^^^^^^^^
./bigden.f:88:4: DO loop currently ends at statement:
60 S(I)=XPT(KSAV,I)-XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:101:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 I=1,N
^^^^^^^^^^^
./bigden.f:104:4: DO loop currently ends at statement:
80 XOPTS=XOPTS+XOPT(I)*S(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:115:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 90 I=6,9
^^^^^^^^^^^
./bigden.f:116:4: DO loop currently ends at statement:
90 DEN(I)=ZERO
^^^^^^^^^^^^^^
./bigden.f:120:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 K=1,NPT
^^^^^^^^^^^^^^
./bigden.f:132:3: DO loop currently ends at statement:
110 WVEC(K,5)=HALF*TEMPA*TEMPB
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:124:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 I=1,N
^^^^^^^^^^^^
./bigden.f:127:3: DO loop currently ends at statement:
100 TEMPC=TEMPC+XPT(K,I)*XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:133:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 120 I=1,N
^^^^^^^^^^^^
./bigden.f:139:3: DO loop currently ends at statement:
120 WVEC(IP,5)=ZERO
^^^^^^^^^^^^^^^^^^^
./bigden.f:143:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 190 JC=1,5
^^^^^^^^^^^^^
./bigden.f:166:3: DO loop currently ends at statement:
190 PROD(NPT+J,JC)=SUM
^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:146:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 130 K=1,NPT
^^^^^^^^^^^^^^
./bigden.f:147:3: DO loop currently ends at statement:
130 PROD(K,JC)=ZERO
^^^^^^^^^^^^^^^^^^^
./bigden.f:148:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 J=1,NPTM
^^^^^^^^^^^^^^^
./bigden.f:154:3: DO loop currently ends at statement:
150 PROD(K,JC)=PROD(K,JC)+SUM*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:150:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 K=1,NPT
^^^^^^^^^^^^^^
./bigden.f:151:3: DO loop currently ends at statement:
140 SUM=SUM+ZMAT(K,J)*WVEC(K,JC)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:153:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 K=1,NPT
^^^^^^^^^^^^^^
./bigden.f:154:3: DO loop currently ends at statement:
150 PROD(K,JC)=PROD(K,JC)+SUM*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:156:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 K=1,NPT
^^^^^^^^^^^^^^
./bigden.f:160:3: DO loop currently ends at statement:
170 PROD(K,JC)=PROD(K,JC)+SUM
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:158:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 160 J=1,N
^^^^^^^^^^^^
./bigden.f:159:3: DO loop currently ends at statement:
160 SUM=SUM+BMAT(K,J)*WVEC(NPT+J,JC)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:162:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 190 J=1,N
^^^^^^^^^^^^
./bigden.f:166:3: DO loop currently ends at statement:
190 PROD(NPT+J,JC)=SUM
^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:164:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 I=1,NW
^^^^^^^^^^^^^
./bigden.f:165:3: DO loop currently ends at statement:
180 SUM=SUM+BMAT(I,J)*WVEC(I,JC)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:170:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 210 K=1,NDIM
^^^^^^^^^^^^^^^
./bigden.f:193:3: DO loop currently ends at statement:
210 DEN(9)=DEN(9)-HALF*TEMPA
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:172:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 I=1,5
^^^^^^^^^^^^
./bigden.f:174:3: DO loop currently ends at statement:
200 SUM=SUM+PAR(I)
^^^^^^^^^^^^^^^^^^
./bigden.f:198:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 220 I=1,5
^^^^^^^^^^^^
./bigden.f:200:3: DO loop currently ends at statement:
220 SUM=SUM+PAR(I)
^^^^^^^^^^^^^^^^^^
./bigden.f:232:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 230 J=4,8,2
^^^^^^^^^^^^^^
./bigden.f:234:3: DO loop currently ends at statement:
230 PAR(J+1)=PAR(2)*PAR(J-1)+PAR(3)*PAR(J-2)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:237:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 240 J=1,9
^^^^^^^^^^^^
./bigden.f:238:3: DO loop currently ends at statement:
240 SUM=SUM+DENEX(J)*PAR(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:262:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 J=4,8,2
^^^^^^^^^^^^^^
./bigden.f:264:3: DO loop currently ends at statement:
260 PAR(J+1)=PAR(2)*PAR(J-1)+PAR(3)*PAR(J-2)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:267:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 J=1,9
^^^^^^^^^^^^
./bigden.f:269:3: DO loop currently ends at statement:
270 DENMAX=DENMAX+DENEX(J)*PAR(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:270:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 280 K=1,NDIM
^^^^^^^^^^^^^^^
./bigden.f:273:3: DO loop currently ends at statement:
280 VLAG(K)=VLAG(K)+PROD(K,J)*PAR(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:272:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 280 J=1,5
^^^^^^^^^^^^
./bigden.f:273:3: DO loop currently ends at statement:
280 VLAG(K)=VLAG(K)+PROD(K,J)*PAR(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:278:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 290 I=1,N
^^^^^^^^^^^^
./bigden.f:283:3: DO loop currently ends at statement:
290 TEMPB=TEMPB+W(I)*W(I)
^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:292:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 300 I=1,N
^^^^^^^^^^^^
./bigden.f:294:3: DO loop currently ends at statement:
300 S(I)=TAU*BMAT(KNEW,I)+ALPHA*TEMP
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:295:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 320 K=1,NPT
^^^^^^^^^^^^^^
./bigden.f:301:3: DO loop currently ends at statement:
320 S(I)=S(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:297:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 310 J=1,N
^^^^^^^^^^^^
./bigden.f:298:3: DO loop currently ends at statement:
310 SUM=SUM+XPT(K,J)*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:300:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 320 I=1,N
^^^^^^^^^^^^
./bigden.f:301:3: DO loop currently ends at statement:
320 S(I)=S(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:304:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 330 I=1,N
^^^^^^^^^^^^
./bigden.f:306:3: DO loop currently ends at statement:
330 DS=DS+D(I)*S(I)
^^^^^^^^^^^^^^^^^^^
./bigden.f:312:3: portability: A DO loop should terminate with an END DO or CONTINUE
340 DO 350 K=1,NDIM
^^^^^^^^^^^^^^^^^^^
./bigden.f:315:3: DO loop currently ends at statement:
350 W(K)=W(K)+WVEC(K,J)*PAR(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bigden.f:314:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 350 J=1,5
^^^^^^^^^^^^
./bigden.f:315:3: DO loop currently ends at statement:
350 W(K)=W(K)+WVEC(K,J)*PAR(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c biglag.f -o biglag.o
./biglag.f:37:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 K=1,NPT
^^^^^^^^^^^^^
./biglag.f:38:4: DO loop currently ends at statement:
10 HCOL(K)=ZERO
^^^^^^^^^^^^^^^
./biglag.f:39:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 J=1,NPTM
^^^^^^^^^^^^^^
./biglag.f:43:4: DO loop currently ends at statement:
20 HCOL(K)=HCOL(K)+TEMP*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:42:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 K=1,NPT
^^^^^^^^^^^^^
./biglag.f:43:4: DO loop currently ends at statement:
20 HCOL(K)=HCOL(K)+TEMP*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:50:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 I=1,N
^^^^^^^^^^^
./biglag.f:54:4: DO loop currently ends at statement:
30 DD=DD+D(I)**2
^^^^^^^^^^^^^^^^
./biglag.f:55:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 K=1,NPT
^^^^^^^^^^^^^
./biglag.f:65:4: DO loop currently ends at statement:
50 GD(I)=GD(I)+SUM*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:58:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 J=1,N
^^^^^^^^^^^
./biglag.f:60:4: DO loop currently ends at statement:
40 SUM=SUM+XPT(K,J)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:63:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,N
^^^^^^^^^^^
./biglag.f:65:4: DO loop currently ends at statement:
50 GD(I)=GD(I)+SUM*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:73:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 I=1,N
^^^^^^^^^^^
./biglag.f:76:4: DO loop currently ends at statement:
60 DHD=DHD+D(I)*GD(I)
^^^^^^^^^^^^^^^^^^^^^
./biglag.f:83:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 70 I=1,N
^^^^^^^^^^^
./biglag.f:86:4: DO loop currently ends at statement:
70 S(I)=GC(I)+TEMP*GD(I)
^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:96:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 90 I=1,N
^^^^^^^^^^^
./biglag.f:99:4: DO loop currently ends at statement:
90 SS=SS+S(I)**2
^^^^^^^^^^^^^^^^
./biglag.f:103:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 I=1,N
^^^^^^^^^^^^
./biglag.f:105:3: DO loop currently ends at statement:
100 W(I)=ZERO
^^^^^^^^^^^^^
./biglag.f:110:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 120 K=1,NPT
^^^^^^^^^^^^^^
./biglag.f:116:3: DO loop currently ends at statement:
120 W(I)=W(I)+SUM*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:112:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 J=1,N
^^^^^^^^^^^^
./biglag.f:113:3: DO loop currently ends at statement:
110 SUM=SUM+XPT(K,J)*S(J)
^^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:115:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 120 I=1,N
^^^^^^^^^^^^
./biglag.f:116:3: DO loop currently ends at statement:
120 W(I)=W(I)+SUM*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:122:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 130 I=1,N
^^^^^^^^^^^^
./biglag.f:127:3: DO loop currently ends at statement:
130 CF5=CF5+S(I)*GD(I)
^^^^^^^^^^^^^^^^^^^^^^
./biglag.f:139:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 I=1,IU
^^^^^^^^^^^^^
./biglag.f:151:3: DO loop currently ends at statement:
140 TAUOLD=TAU
^^^^^^^^^^^^^^
./biglag.f:167:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 I=1,N
^^^^^^^^^^^^
./biglag.f:170:3: DO loop currently ends at statement:
150 S(I)=GC(I)+GD(I)
^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c bobyqa.f -o bobyqa.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c bobyqb.f -o bobyqb.o
./bobyqb.f:66:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I=1,N
^^^^^^^^^^^
./bobyqb.f:68:4: DO loop currently ends at statement:
10 XOPTSQ=XOPTSQ+XOPT(I)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:96:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 J=1,N
^^^^^^^^^^^
./bobyqb.f:100:4: DO loop currently ends at statement:
30 GOPT(I)=GOPT(I)+HQ(IH)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:97:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 I=1,J
^^^^^^^^^^^
./bobyqb.f:100:4: DO loop currently ends at statement:
30 GOPT(I)=GOPT(I)+HQ(IH)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:102:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 K=1,NPT
^^^^^^^^^^^^^
./bobyqb.f:108:4: DO loop currently ends at statement:
50 GOPT(I)=GOPT(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:104:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 J=1,N
^^^^^^^^^^^
./bobyqb.f:105:4: DO loop currently ends at statement:
40 TEMP=TEMP+XPT(K,J)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:107:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,N
^^^^^^^^^^^
./bobyqb.f:108:4: DO loop currently ends at statement:
50 GOPT(I)=GOPT(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:144:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 70 K=1,NPT
^^^^^^^^^^^^^
./bobyqb.f:145:4: DO loop currently ends at statement:
70 CURV=CURV+PQ(K)*XPT(K,J)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:163:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:175:3: DO loop currently ends at statement:
110 BMAT(IP,J)=BMAT(IP,J)+W(I)*VLAG(J)+VLAG(I)*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:166:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 I=1,N
^^^^^^^^^^^^
./bobyqb.f:167:3: DO loop currently ends at statement:
100 SUM=SUM+XPT(K,I)*XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:170:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 I=1,N
^^^^^^^^^^^^
./bobyqb.f:175:3: DO loop currently ends at statement:
110 BMAT(IP,J)=BMAT(IP,J)+W(I)*VLAG(J)+VLAG(I)*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:174:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 J=1,I
^^^^^^^^^^^^
./bobyqb.f:175:3: DO loop currently ends at statement:
110 BMAT(IP,J)=BMAT(IP,J)+W(I)*VLAG(J)+VLAG(I)*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:179:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 JJ=1,NPTM
^^^^^^^^^^^^^^^^
./bobyqb.f:197:3: DO loop currently ends at statement:
150 BMAT(IP,J)=BMAT(IP,J)+TEMP*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:182:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 120 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:185:3: DO loop currently ends at statement:
120 SUMW=SUMW+VLAG(K)
^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:186:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 J=1,N
^^^^^^^^^^^^
./bobyqb.f:192:3: DO loop currently ends at statement:
140 BMAT(K,J)=BMAT(K,J)+SUM*ZMAT(K,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:188:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 130 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:189:3: DO loop currently ends at statement:
130 SUM=SUM+VLAG(K)*XPT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:191:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:192:3: DO loop currently ends at statement:
140 BMAT(K,J)=BMAT(K,J)+SUM*ZMAT(K,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:193:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 I=1,N
^^^^^^^^^^^^
./bobyqb.f:197:3: DO loop currently ends at statement:
150 BMAT(IP,J)=BMAT(IP,J)+TEMP*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:196:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 J=1,I
^^^^^^^^^^^^
./bobyqb.f:197:3: DO loop currently ends at statement:
150 BMAT(IP,J)=BMAT(IP,J)+TEMP*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:203:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 J=1,N
^^^^^^^^^^^^
./bobyqb.f:211:3: DO loop currently ends at statement:
170 BMAT(NPT+I,J)=BMAT(NPT+J,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:205:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 160 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:207:3: DO loop currently ends at statement:
160 XPT(K,J)=XPT(K,J)-XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:208:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 I=1,J
^^^^^^^^^^^^
./bobyqb.f:211:3: DO loop currently ends at statement:
170 BMAT(NPT+I,J)=BMAT(NPT+J,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:212:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 I=1,N
^^^^^^^^^^^^
./bobyqb.f:217:3: DO loop currently ends at statement:
180 XOPT(I)=ZERO
^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:244:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 I=1,N
^^^^^^^^^^^^
./bobyqb.f:246:3: DO loop currently ends at statement:
200 XOPTSQ=XOPTSQ+XOPT(I)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:277:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 220 I=1,N
^^^^^^^^^^^^
./bobyqb.f:278:3: DO loop currently ends at statement:
220 D(I)=XNEW(I)-XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:284:3: portability: A DO loop should terminate with an END DO or CONTINUE
230 DO 250 K=1,NPT
^^^^^^^^^^^^^^^^^^
./bobyqb.f:294:3: DO loop currently ends at statement:
250 W(NPT+K)=SUMA
^^^^^^^^^^^^^^^^^
./bobyqb.f:288:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 240 J=1,N
^^^^^^^^^^^^
./bobyqb.f:291:3: DO loop currently ends at statement:
240 SUM=SUM+BMAT(K,J)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:296:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 JJ=1,NPTM
^^^^^^^^^^^^^^^^
./bobyqb.f:302:3: DO loop currently ends at statement:
270 VLAG(K)=VLAG(K)+SUM*ZMAT(K,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:298:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:299:3: DO loop currently ends at statement:
260 SUM=SUM+ZMAT(K,JJ)*W(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:301:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:302:3: DO loop currently ends at statement:
270 VLAG(K)=VLAG(K)+SUM*ZMAT(K,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:306:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 300 J=1,N
^^^^^^^^^^^^
./bobyqb.f:317:3: DO loop currently ends at statement:
300 DX=DX+D(J)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:309:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 280 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:310:3: DO loop currently ends at statement:
280 SUM=SUM+W(K)*BMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:313:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 290 I=1,N
^^^^^^^^^^^^
./bobyqb.f:314:3: DO loop currently ends at statement:
290 SUM=SUM+BMAT(JP,I)*D(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:328:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 310 I=1,N
^^^^^^^^^^^^
./bobyqb.f:330:3: DO loop currently ends at statement:
310 D(I)=XNEW(I)-XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:360:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 330 JJ=1,NPTM
^^^^^^^^^^^^^^^^
./bobyqb.f:361:3: DO loop currently ends at statement:
330 HDIAG=HDIAG+ZMAT(K,JJ)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:364:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 340 J=1,N
^^^^^^^^^^^^
./bobyqb.f:365:3: DO loop currently ends at statement:
340 DISTSQ=DISTSQ+(XPT(K,J)-XOPT(J))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:426:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 410 J=1,N
^^^^^^^^^^^^
./bobyqb.f:432:3: DO loop currently ends at statement:
410 VQUAD=VQUAD+HQ(IH)*TEMP
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:428:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 410 I=1,J
^^^^^^^^^^^^
./bobyqb.f:432:3: DO loop currently ends at statement:
410 VQUAD=VQUAD+HQ(IH)*TEMP
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:433:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 420 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:434:3: DO loop currently ends at statement:
420 VQUAD=VQUAD+HALF*PQ(K)*W(NPT+K)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:473:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 460 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:487:3: DO loop currently ends at statement:
460 BIGLSQ=DMAX1(BIGLSQ,TEMP*VLAG(K)**2)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:475:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 440 JJ=1,NPTM
^^^^^^^^^^^^^^^^
./bobyqb.f:476:3: DO loop currently ends at statement:
440 HDIAG=HDIAG+ZMAT(K,JJ)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:479:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 450 J=1,N
^^^^^^^^^^^^
./bobyqb.f:480:3: DO loop currently ends at statement:
450 DISTSQ=DISTSQ+(XPT(K,J)-XNEW(J))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:502:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 470 I=1,N
^^^^^^^^^^^^
./bobyqb.f:506:3: DO loop currently ends at statement:
470 HQ(IH)=HQ(IH)+TEMP*XPT(KNEW,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:504:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 470 J=1,I
^^^^^^^^^^^^
./bobyqb.f:506:3: DO loop currently ends at statement:
470 HQ(IH)=HQ(IH)+TEMP*XPT(KNEW,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:507:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 480 JJ=1,NPTM
^^^^^^^^^^^^^^^^
./bobyqb.f:510:3: DO loop currently ends at statement:
480 PQ(K)=PQ(K)+TEMP*ZMAT(K,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:509:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 480 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:510:3: DO loop currently ends at statement:
480 PQ(K)=PQ(K)+TEMP*ZMAT(K,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:516:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 490 I=1,N
^^^^^^^^^^^^
./bobyqb.f:518:3: DO loop currently ends at statement:
490 W(I)=BMAT(KNEW,I)
^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:519:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 520 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:528:3: DO loop currently ends at statement:
520 W(I)=W(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:521:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 500 JJ=1,NPTM
^^^^^^^^^^^^^^^^
./bobyqb.f:522:3: DO loop currently ends at statement:
500 SUMA=SUMA+ZMAT(KNEW,JJ)*ZMAT(K,JJ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:524:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 510 J=1,N
^^^^^^^^^^^^
./bobyqb.f:525:3: DO loop currently ends at statement:
510 SUMB=SUMB+XPT(K,J)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:527:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 520 I=1,N
^^^^^^^^^^^^
./bobyqb.f:528:3: DO loop currently ends at statement:
520 W(I)=W(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:529:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 530 I=1,N
^^^^^^^^^^^^
./bobyqb.f:530:3: DO loop currently ends at statement:
530 GOPT(I)=GOPT(I)+DIFF*W(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:538:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 540 J=1,N
^^^^^^^^^^^^
./bobyqb.f:544:3: DO loop currently ends at statement:
540 GOPT(I)=GOPT(I)+HQ(IH)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:541:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 540 I=1,J
^^^^^^^^^^^^
./bobyqb.f:544:3: DO loop currently ends at statement:
540 GOPT(I)=GOPT(I)+HQ(IH)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:545:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 560 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:551:3: DO loop currently ends at statement:
560 GOPT(I)=GOPT(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:547:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 550 J=1,N
^^^^^^^^^^^^
./bobyqb.f:548:3: DO loop currently ends at statement:
550 TEMP=TEMP+XPT(K,J)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:550:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 560 I=1,N
^^^^^^^^^^^^
./bobyqb.f:551:3: DO loop currently ends at statement:
560 GOPT(I)=GOPT(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:559:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 570 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:561:3: DO loop currently ends at statement:
570 W(K)=ZERO
^^^^^^^^^^^^^^^^^
./bobyqb.f:562:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 590 J=1,NPTM
^^^^^^^^^^^^^^^
./bobyqb.f:567:3: DO loop currently ends at statement:
590 W(K)=W(K)+SUM*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:564:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 580 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:565:3: DO loop currently ends at statement:
580 SUM=SUM+ZMAT(K,J)*VLAG(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:566:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 590 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:567:3: DO loop currently ends at statement:
590 W(K)=W(K)+SUM*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:568:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 610 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:573:3: DO loop currently ends at statement:
610 W(K)=SUM*W(K)
^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:570:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 600 J=1,N
^^^^^^^^^^^^
./bobyqb.f:571:3: DO loop currently ends at statement:
600 SUM=SUM+XPT(K,J)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:576:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 630 I=1,N
^^^^^^^^^^^^
./bobyqb.f:590:3: DO loop currently ends at statement:
630 VLAG(NPT+I)=SUM
^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:578:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 620 K=1,NPT
^^^^^^^^^^^^^^
./bobyqb.f:579:3: DO loop currently ends at statement:
620 SUM=SUM+BMAT(K,I)*VLAG(K)+XPT(K,I)*W(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bobyqb.f:621:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 660 J=1,N
^^^^^^^^^^^^
./bobyqb.f:622:3: DO loop currently ends at statement:
660 SUM=SUM+(XPT(K,J)-XOPT(J))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c lagmax.f -o lagmax.o
./lagmax.f:34:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 J=1,N
^^^^^^^^^^^
./lagmax.f:36:4: DO loop currently ends at statement:
10 SUM=SUM+H(I,J)**2
^^^^^^^^^^^^^^^^^^^^
./lagmax.f:42:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 J=1,N
^^^^^^^^^^^
./lagmax.f:43:4: DO loop currently ends at statement:
30 V(J)=H(K,J)
^^^^^^^^^^^^^^
./lagmax.f:52:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,N
^^^^^^^^^^^
./lagmax.f:58:4: DO loop currently ends at statement:
50 DSQ=DSQ+D(I)**2
^^^^^^^^^^^^^^^^^^
./lagmax.f:55:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 J=1,N
^^^^^^^^^^^
./lagmax.f:56:4: DO loop currently ends at statement:
40 D(I)=D(I)+H(I,J)*V(J)
^^^^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:62:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 I=1,N
^^^^^^^^^^^
./lagmax.f:64:4: DO loop currently ends at statement:
60 WSQ=WSQ+D(I)**2
^^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:67:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 I=1,N
^^^^^^^^^^^
./lagmax.f:72:4: DO loop currently ends at statement:
80 V(I)=RATIO*V(I)
^^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:69:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 70 J=1,N
^^^^^^^^^^^
./lagmax.f:70:4: DO loop currently ends at statement:
70 TEMP=TEMP+H(I,J)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:77:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 90 I=1,N
^^^^^^^^^^^
./lagmax.f:78:4: DO loop currently ends at statement:
90 D(I)=VHW*V(I)+TEMP*D(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:88:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 I=1,N
^^^^^^^^^^^^
./lagmax.f:95:3: DO loop currently ends at statement:
110 DHD=DHD+SUM*D(I)
^^^^^^^^^^^^^^^^^^^^
./lagmax.f:93:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 J=1,N
^^^^^^^^^^^^
./lagmax.f:94:3: DO loop currently ends at statement:
100 SUM=SUM+H(I,J)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:99:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 120 I=1,N
^^^^^^^^^^^^
./lagmax.f:102:3: DO loop currently ends at statement:
120 D(I)=SCALE*D(I)
^^^^^^^^^^^^^^^^^^^
./lagmax.f:117:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 I=1,N
^^^^^^^^^^^^
./lagmax.f:125:3: DO loop currently ends at statement:
140 VHV=VHV+SUMV*V(I)
^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:120:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 130 J=1,N
^^^^^^^^^^^^
./lagmax.f:122:3: DO loop currently ends at statement:
130 SUMV=SUMV+H(I,J)*V(J)
^^^^^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:145:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 I=1,N
^^^^^^^^^^^^
./lagmax.f:147:3: DO loop currently ends at statement:
150 V(I)=TEMPC*V(I)-TEMPD*G(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./lagmax.f:167:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 160 I=1,N
^^^^^^^^^^^^
./lagmax.f:168:3: DO loop currently ends at statement:
160 D(I)=TEMPD*D(I)+TEMPV*V(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/clang++ -std=gnu++17 -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -I'/data/gannet/ripley/R/test-clang/Rcpp/include' -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -frtti -Wp,-D_FORTIFY_SOURCE=3 -c minqa.cpp -o minqa.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c newuoa.f -o newuoa.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c newuob.f -o newuob.o
./newuob.f:46:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 J=1,N
^^^^^^^^^^^
./newuob.f:51:4: DO loop currently ends at statement:
20 BMAT(I,J)=ZERO
^^^^^^^^^^^^^^^^^
./newuob.f:48:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 K=1,NPT
^^^^^^^^^^^^^
./newuob.f:49:4: DO loop currently ends at statement:
10 XPT(K,J)=ZERO
^^^^^^^^^^^^^^^^
./newuob.f:50:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 I=1,NDIM
^^^^^^^^^^^^^^
./newuob.f:51:4: DO loop currently ends at statement:
20 BMAT(I,J)=ZERO
^^^^^^^^^^^^^^^^^
./newuob.f:52:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 IH=1,NH
^^^^^^^^^^^^^
./newuob.f:53:4: DO loop currently ends at statement:
30 HQ(IH)=ZERO
^^^^^^^^^^^^^^
./newuob.f:54:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 K=1,NPT
^^^^^^^^^^^^^
./newuob.f:57:4: DO loop currently ends at statement:
40 ZMAT(K,J)=ZERO
^^^^^^^^^^^^^^^^^
./newuob.f:56:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 J=1,NPTM
^^^^^^^^^^^^^^
./newuob.f:57:4: DO loop currently ends at statement:
40 ZMAT(K,J)=ZERO
^^^^^^^^^^^^^^^^^
./newuob.f:97:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 J=1,N
^^^^^^^^^^^
./newuob.f:98:4: DO loop currently ends at statement:
60 X(J)=XPT(NF,J)+XBASE(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:157:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 I=1,N
^^^^^^^^^^^
./newuob.f:159:4: DO loop currently ends at statement:
80 XOPTSQ=XOPTSQ+XOPT(I)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:169:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 I=1,N
^^^^^^^^^^^^
./newuob.f:170:3: DO loop currently ends at statement:
110 DSQ=DSQ+D(I)**2
^^^^^^^^^^^^^^^^^^^
./newuob.f:188:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:202:3: DO loop currently ends at statement:
140 BMAT(IP,J)=BMAT(IP,J)+VLAG(I)*W(J)+W(I)*VLAG(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:190:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 130 I=1,N
^^^^^^^^^^^^
./newuob.f:191:3: DO loop currently ends at statement:
130 SUM=SUM+XPT(K,I)*XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:195:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 I=1,N
^^^^^^^^^^^^
./newuob.f:202:3: DO loop currently ends at statement:
140 BMAT(IP,J)=BMAT(IP,J)+VLAG(I)*W(J)+W(I)*VLAG(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:201:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 J=1,I
^^^^^^^^^^^^
./newuob.f:202:3: DO loop currently ends at statement:
140 BMAT(IP,J)=BMAT(IP,J)+VLAG(I)*W(J)+W(I)*VLAG(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:206:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 K=1,NPTM
^^^^^^^^^^^^^^^
./newuob.f:224:3: DO loop currently ends at statement:
180 BMAT(IP,J)=BMAT(IP,J)+TEMP*VLAG(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:208:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 I=1,NPT
^^^^^^^^^^^^^^
./newuob.f:210:3: DO loop currently ends at statement:
150 W(I)=W(NPT+I)*ZMAT(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:211:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 J=1,N
^^^^^^^^^^^^
./newuob.f:218:3: DO loop currently ends at statement:
170 BMAT(I,J)=BMAT(I,J)+SUM*ZMAT(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:213:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 160 I=1,NPT
^^^^^^^^^^^^^^
./newuob.f:214:3: DO loop currently ends at statement:
160 SUM=SUM+W(I)*XPT(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:217:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 I=1,NPT
^^^^^^^^^^^^^^
./newuob.f:218:3: DO loop currently ends at statement:
170 BMAT(I,J)=BMAT(I,J)+SUM*ZMAT(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:219:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 I=1,N
^^^^^^^^^^^^
./newuob.f:224:3: DO loop currently ends at statement:
180 BMAT(IP,J)=BMAT(IP,J)+TEMP*VLAG(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:223:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 J=1,I
^^^^^^^^^^^^
./newuob.f:224:3: DO loop currently ends at statement:
180 BMAT(IP,J)=BMAT(IP,J)+TEMP*VLAG(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:230:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 J=1,N
^^^^^^^^^^^^
./newuob.f:240:3: DO loop currently ends at statement:
200 BMAT(NPT+I,J)=BMAT(NPT+J,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:232:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 190 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:234:3: DO loop currently ends at statement:
190 XPT(K,J)=XPT(K,J)-HALF*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:235:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 I=1,J
^^^^^^^^^^^^
./newuob.f:240:3: DO loop currently ends at statement:
200 BMAT(NPT+I,J)=BMAT(NPT+J,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:241:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 210 J=1,N
^^^^^^^^^^^^
./newuob.f:243:3: DO loop currently ends at statement:
210 XOPT(J)=ZERO
^^^^^^^^^^^^^^^^^^^^
./newuob.f:259:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 230 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:268:3: DO loop currently ends at statement:
230 VLAG(K)=SUM
^^^^^^^^^^^^^^^
./newuob.f:263:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 220 J=1,N
^^^^^^^^^^^^
./newuob.f:266:3: DO loop currently ends at statement:
220 SUM=SUM+BMAT(K,J)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:270:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 250 K=1,NPTM
^^^^^^^^^^^^^^^
./newuob.f:281:3: DO loop currently ends at statement:
250 VLAG(I)=VLAG(I)+SUM*ZMAT(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:272:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 240 I=1,NPT
^^^^^^^^^^^^^^
./newuob.f:273:3: DO loop currently ends at statement:
240 SUM=SUM+ZMAT(I,K)*W(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:280:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 250 I=1,NPT
^^^^^^^^^^^^^^
./newuob.f:281:3: DO loop currently ends at statement:
250 VLAG(I)=VLAG(I)+SUM*ZMAT(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:284:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 280 J=1,N
^^^^^^^^^^^^
./newuob.f:294:3: DO loop currently ends at statement:
280 DX=DX+D(J)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:286:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 I=1,NPT
^^^^^^^^^^^^^^
./newuob.f:287:3: DO loop currently ends at statement:
260 SUM=SUM+W(I)*BMAT(I,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:290:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 K=1,N
^^^^^^^^^^^^
./newuob.f:291:3: DO loop currently ends at statement:
270 SUM=SUM+BMAT(JP,K)*D(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:312:3: portability: A DO loop should terminate with an END DO or CONTINUE
290 DO 300 I=1,N
^^^^^^^^^^^^^^^^
./newuob.f:314:3: DO loop currently ends at statement:
300 X(I)=XBASE(I)+XNEW(I)
^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:341:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 340 J=1,N
^^^^^^^^^^^^
./newuob.f:347:3: DO loop currently ends at statement:
340 VQUAD=VQUAD+TEMP*HQ(IH)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:343:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 340 I=1,J
^^^^^^^^^^^^
./newuob.f:347:3: DO loop currently ends at statement:
340 VQUAD=VQUAD+TEMP*HQ(IH)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:348:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 350 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:349:3: DO loop currently ends at statement:
350 VQUAD=VQUAD+PQ(K)*W(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:364:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 360 I=1,N
^^^^^^^^^^^^
./newuob.f:366:3: DO loop currently ends at statement:
360 XOPTSQ=XOPTSQ+XOPT(I)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:402:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 380 J=1,NPTM
^^^^^^^^^^^^^^^
./newuob.f:405:3: DO loop currently ends at statement:
380 HDIAG=HDIAG+TEMP*ZMAT(K,J)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:408:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 390 J=1,N
^^^^^^^^^^^^
./newuob.f:409:3: DO loop currently ends at statement:
390 DISTSQ=DISTSQ+(XPT(K,J)-XOPT(J))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:425:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 420 I=1,N
^^^^^^^^^^^^
./newuob.f:429:3: DO loop currently ends at statement:
420 HQ(IH)=HQ(IH)+TEMP*XPT(KNEW,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:427:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 420 J=1,I
^^^^^^^^^^^^
./newuob.f:429:3: DO loop currently ends at statement:
420 HQ(IH)=HQ(IH)+TEMP*XPT(KNEW,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:435:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 440 J=1,NPTM
^^^^^^^^^^^^^^^
./newuob.f:439:3: DO loop currently ends at statement:
440 PQ(K)=PQ(K)+TEMP*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:438:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 440 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:439:3: DO loop currently ends at statement:
440 PQ(K)=PQ(K)+TEMP*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:441:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 450 I=1,N
^^^^^^^^^^^^
./newuob.f:444:3: DO loop currently ends at statement:
450 XPT(KNEW,I)=XNEW(I)
^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:454:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 700 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:455:3: DO loop currently ends at statement:
700 VLAG(K)=FVAL(K)-FVAL(KOPT)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:457:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 720 I=1,N
^^^^^^^^^^^^
./newuob.f:462:3: DO loop currently ends at statement:
720 W(I)=SUM
^^^^^^^^^^^^^^^^^^^^
./newuob.f:459:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 710 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:460:3: DO loop currently ends at statement:
710 SUM=SUM+BMAT(K,I)*VLAG(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:470:19: portability: A DO loop should terminate with an END DO or CONTINUE
DO 730 I=1,N
^^^^^^^^^^^^
./newuob.f:471:3: DO loop currently ends at statement:
730 GQ(I)=W(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:472:19: portability: A DO loop should terminate with an END DO or CONTINUE
DO 740 IH=1,NH
^^^^^^^^^^^^^^
./newuob.f:473:3: DO loop currently ends at statement:
740 HQ(IH)=ZERO
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:474:19: portability: A DO loop should terminate with an END DO or CONTINUE
DO 760 J=1,NPTM
^^^^^^^^^^^^^^^
./newuob.f:478:3: DO loop currently ends at statement:
760 IF (J .LT. IDZ) W(J)=-W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:476:19: portability: A DO loop should terminate with an END DO or CONTINUE
DO 750 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:477:3: DO loop currently ends at statement:
750 W(J)=W(J)+VLAG(K)*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:479:19: portability: A DO loop should terminate with an END DO or CONTINUE
DO 770 K=1,NPT
^^^^^^^^^^^^^^
./newuob.f:482:3: DO loop currently ends at statement:
770 PQ(K)=PQ(K)+ZMAT(K,J)*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:481:19: portability: A DO loop should terminate with an END DO or CONTINUE
DO 770 J=1,NPTM
^^^^^^^^^^^^^^^
./newuob.f:482:3: DO loop currently ends at statement:
770 PQ(K)=PQ(K)+ZMAT(K,J)*W(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:503:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 470 J=1,N
^^^^^^^^^^^^
./newuob.f:504:3: DO loop currently ends at statement:
470 SUM=SUM+(XPT(K,J)-XOPT(J))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./newuob.f:555:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 540 I=1,N
^^^^^^^^^^^^
./newuob.f:556:3: DO loop currently ends at statement:
540 X(I)=XBASE(I)+XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c prelim.f -o prelim.o
./prelim.f:36:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 J=1,N
^^^^^^^^^^^
./prelim.f:41:4: DO loop currently ends at statement:
20 BMAT(I,J)=ZERO
^^^^^^^^^^^^^^^^^
./prelim.f:38:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 K=1,NPT
^^^^^^^^^^^^^
./prelim.f:39:4: DO loop currently ends at statement:
10 XPT(K,J)=ZERO
^^^^^^^^^^^^^^^^
./prelim.f:40:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 I=1,NDIM
^^^^^^^^^^^^^^
./prelim.f:41:4: DO loop currently ends at statement:
20 BMAT(I,J)=ZERO
^^^^^^^^^^^^^^^^^
./prelim.f:42:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 IH=1,(N*NP)/2
^^^^^^^^^^^^^^^^^^^
./prelim.f:43:4: DO loop currently ends at statement:
30 HQ(IH)=ZERO
^^^^^^^^^^^^^^
./prelim.f:44:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 K=1,NPT
^^^^^^^^^^^^^
./prelim.f:47:4: DO loop currently ends at statement:
40 ZMAT(K,J)=ZERO
^^^^^^^^^^^^^^^^^
./prelim.f:46:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 J=1,NPT-NP
^^^^^^^^^^^^^^^^
./prelim.f:47:4: DO loop currently ends at statement:
40 ZMAT(K,J)=ZERO
^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c rescue.f -o rescue.o
./rescue.f:62:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 K=1,NPT
^^^^^^^^^^^^^
./rescue.f:71:4: DO loop currently ends at statement:
20 ZMAT(K,J)=ZERO
^^^^^^^^^^^^^^^^^
./rescue.f:64:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 J=1,N
^^^^^^^^^^^
./rescue.f:66:4: DO loop currently ends at statement:
10 DISTSQ=DISTSQ+XPT(K,J)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:70:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 J=1,NPTM
^^^^^^^^^^^^^^
./rescue.f:71:4: DO loop currently ends at statement:
20 ZMAT(K,J)=ZERO
^^^^^^^^^^^^^^^^^
./rescue.f:77:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 J=1,N
^^^^^^^^^^^
./rescue.f:83:4: DO loop currently ends at statement:
40 HQ(IH)=HQ(IH)+W(I)*XOPT(J)+W(J)*XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:79:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 K=1,NPT
^^^^^^^^^^^^^
./rescue.f:80:4: DO loop currently ends at statement:
30 W(J)=W(J)+PQ(K)*XPT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:81:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 I=1,J
^^^^^^^^^^^
./rescue.f:83:4: DO loop currently ends at statement:
40 HQ(IH)=HQ(IH)+W(I)*XOPT(J)+W(J)*XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:88:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 J=1,N
^^^^^^^^^^^
./rescue.f:104:4: DO loop currently ends at statement:
50 BMAT(I,J)=ZERO
^^^^^^^^^^^^^^^^^
./rescue.f:103:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,NDIM
^^^^^^^^^^^^^^
./rescue.f:104:4: DO loop currently ends at statement:
50 BMAT(I,J)=ZERO
^^^^^^^^^^^^^^^^^
./rescue.f:135:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 70 K=2*NP,NPT
^^^^^^^^^^^^^^^^
./rescue.f:145:4: DO loop currently ends at statement:
70 ZMAT(K,K-NP)=TEMP
^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:154:4: portability: A DO loop should terminate with an END DO or CONTINUE
80 DO 90 J=1,N
^^^^^^^^^^^^^^
./rescue.f:157:4: DO loop currently ends at statement:
90 BMAT(KNEW,J)=TEMP
^^^^^^^^^^^^^^^^^^^^
./rescue.f:158:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 J=1,NPTM
^^^^^^^^^^^^^^^
./rescue.f:161:3: DO loop currently ends at statement:
100 ZMAT(KNEW,J)=TEMP
^^^^^^^^^^^^^^^^^^^^^
./rescue.f:179:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 K=1,NPT
^^^^^^^^^^^^^^
./rescue.f:180:2: DO loop currently ends at statement:
110 W(NDIM+K)=DABS(W(NDIM+K))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:200:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 J=1,N
^^^^^^^^^^^^
./rescue.f:201:3: DO loop currently ends at statement:
140 W(NPT+J)=XPT(KNEW,J)
^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:202:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 160 K=1,NPT
^^^^^^^^^^^^^^
./rescue.f:219:3: DO loop currently ends at statement:
160 W(K)=HALF*SUM*SUM
^^^^^^^^^^^^^^^^^^^^^
./rescue.f:207:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 J=1,N
^^^^^^^^^^^^
./rescue.f:208:3: DO loop currently ends at statement:
150 SUM=SUM+W(NPT+J)*XPT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:224:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 K=1,NPT
^^^^^^^^^^^^^^
./rescue.f:228:3: DO loop currently ends at statement:
180 VLAG(K)=SUM
^^^^^^^^^^^^^^^
./rescue.f:226:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 J=1,N
^^^^^^^^^^^^
./rescue.f:227:3: DO loop currently ends at statement:
170 SUM=SUM+BMAT(K,J)*W(NPT+J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:230:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 J=1,NPTM
^^^^^^^^^^^^^^^
./rescue.f:236:3: DO loop currently ends at statement:
200 VLAG(K)=VLAG(K)+SUM*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:232:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 190 K=1,NPT
^^^^^^^^^^^^^^
./rescue.f:233:3: DO loop currently ends at statement:
190 SUM=SUM+ZMAT(K,J)*W(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:235:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 K=1,NPT
^^^^^^^^^^^^^^
./rescue.f:236:3: DO loop currently ends at statement:
200 VLAG(K)=VLAG(K)+SUM*ZMAT(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:239:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 230 J=1,N
^^^^^^^^^^^^
./rescue.f:249:3: DO loop currently ends at statement:
230 DISTSQ=DISTSQ+XPT(KNEW,J)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:241:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 210 K=1,NPT
^^^^^^^^^^^^^^
./rescue.f:242:3: DO loop currently ends at statement:
210 SUM=SUM+BMAT(K,J)*W(K)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:245:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 220 IP=NPT+1,NDIM
^^^^^^^^^^^^^^^^^^^^
./rescue.f:246:3: DO loop currently ends at statement:
220 SUM=SUM+BMAT(IP,J)*W(IP)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:260:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 250 K=1,NPT
^^^^^^^^^^^^^^
./rescue.f:271:3: DO loop currently ends at statement:
250 VLMXSQ=DMAX1(VLMXSQ,VLAG(K)**2)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:263:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 240 J=1,NPTM
^^^^^^^^^^^^^^^
./rescue.f:264:3: DO loop currently ends at statement:
240 HDIAG=HDIAG+ZMAT(K,J)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:293:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 J=1,N
^^^^^^^^^^^^
./rescue.f:299:3: DO loop currently ends at statement:
270 HQ(IH)=HQ(IH)+TEMP*W(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:297:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 I=1,J
^^^^^^^^^^^^
./rescue.f:299:3: DO loop currently ends at statement:
270 HQ(IH)=HQ(IH)+TEMP*W(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:328:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 280 K=1,NPT
^^^^^^^^^^^^^^
./rescue.f:332:3: DO loop currently ends at statement:
280 VQUAD=VQUAD+HALF*PQ(K)*TEMP*TEMP
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:358:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 310 I=1,N
^^^^^^^^^^^^
./rescue.f:359:3: DO loop currently ends at statement:
310 GOPT(I)=GOPT(I)+DIFF*BMAT(KPT,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./rescue.f:362:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 320 J=1,NPTM
^^^^^^^^^^^^^^^
./rescue.f:363:3: DO loop currently ends at statement:
320 SUM=SUM+ZMAT(K,J)*ZMAT(KPT,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c trsapp.f -o trsapp.o
./trsapp.f:32:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I=1,N
^^^^^^^^^^^
./trsapp.f:33:4: DO loop currently ends at statement:
10 D(I)=XOPT(I)
^^^^^^^^^^^^^^^
./trsapp.f:40:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 I=1,N
^^^^^^^^^^^
./trsapp.f:45:4: DO loop currently ends at statement:
30 DD=DD+D(I)**2
^^^^^^^^^^^^^^^^
./trsapp.f:60:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 J=1,N
^^^^^^^^^^^
./trsapp.f:61:4: DO loop currently ends at statement:
60 DHD=DHD+D(J)*HD(J)
^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:79:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 70 I=1,N
^^^^^^^^^^^
./trsapp.f:82:4: DO loop currently ends at statement:
70 GG=GG+(G(I)+HS(I))**2
^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:94:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 I=1,N
^^^^^^^^^^^
./trsapp.f:98:4: DO loop currently ends at statement:
80 SS=SS+STEP(I)**2
^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:110:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 I=1,N
^^^^^^^^^^^^
./trsapp.f:112:3: DO loop currently ends at statement:
100 SHS=SHS+STEP(I)*HS(I)
^^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:124:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 I=1,N
^^^^^^^^^^^^
./trsapp.f:125:3: DO loop currently ends at statement:
110 D(I)=TEMPA*(G(I)+HS(I))-TEMPB*STEP(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:130:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 130 I=1,N
^^^^^^^^^^^^
./trsapp.f:133:3: DO loop currently ends at statement:
130 DHS=DHS+HD(I)*STEP(I)
^^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:144:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 140 I=1,IU
^^^^^^^^^^^^^
./trsapp.f:156:3: DO loop currently ends at statement:
140 QSAV=QNEW
^^^^^^^^^^^^^
./trsapp.f:173:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 I=1,N
^^^^^^^^^^^^
./trsapp.f:176:3: DO loop currently ends at statement:
150 GG=GG+(G(I)+HS(I))**2
^^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:187:3: portability: A DO loop should terminate with an END DO or CONTINUE
170 DO 180 I=1,N
^^^^^^^^^^^^^^^^
./trsapp.f:188:3: DO loop currently ends at statement:
180 HD(I)=ZERO
^^^^^^^^^^^^^^
./trsapp.f:189:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 K=1,NPT
^^^^^^^^^^^^^^
./trsapp.f:195:3: DO loop currently ends at statement:
200 HD(I)=HD(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:191:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 190 J=1,N
^^^^^^^^^^^^
./trsapp.f:192:3: DO loop currently ends at statement:
190 TEMP=TEMP+XPT(K,J)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:194:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 I=1,N
^^^^^^^^^^^^
./trsapp.f:195:3: DO loop currently ends at statement:
200 HD(I)=HD(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:197:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 210 J=1,N
^^^^^^^^^^^^
./trsapp.f:201:3: DO loop currently ends at statement:
210 HD(I)=HD(I)+HQ(IH)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsapp.f:198:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 210 I=1,J
^^^^^^^^^^^^
./trsapp.f:201:3: DO loop currently ends at statement:
210 HD(I)=HD(I)+HQ(IH)*D(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c trsbox.f -o trsbox.o
./trsbox.f:62:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I=1,N
^^^^^^^^^^^
./trsbox.f:71:4: DO loop currently ends at statement:
10 GNEW(I)=GOPT(I)
^^^^^^^^^^^^^^^^^^
./trsbox.f:84:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 I=1,N
^^^^^^^^^^^
./trsbox.f:92:4: DO loop currently ends at statement:
40 STEPSQ=STEPSQ+S(I)**2
^^^^^^^^^^^^^^^^^^^^^^^^
./trsbox.f:160:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 I=1,N
^^^^^^^^^^^
./trsbox.f:163:4: DO loop currently ends at statement:
80 D(I)=D(I)+STPLEN*S(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsbox.f:292:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 I=1,IU
^^^^^^^^^^^^^
./trsbox.f:304:3: DO loop currently ends at statement:
170 REDSAV=REDNEW
^^^^^^^^^^^^^^^^^
./trsbox.f:326:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 I=1,N
^^^^^^^^^^^^
./trsbox.f:333:3: DO loop currently ends at statement:
180 HRED(I)=CTH*HRED(I)+STH*HS(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsbox.f:346:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 I=1,N
^^^^^^^^^^^^
./trsbox.f:351:3: DO loop currently ends at statement:
200 DSQ=DSQ+D(I)**2
^^^^^^^^^^^^^^^^^^^
./trsbox.f:360:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 220 J=1,N
^^^^^^^^^^^^
./trsbox.f:365:3: DO loop currently ends at statement:
220 HS(I)=HS(I)+HQ(IH)*S(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsbox.f:362:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 220 I=1,J
^^^^^^^^^^^^
./trsbox.f:365:3: DO loop currently ends at statement:
220 HS(I)=HS(I)+HQ(IH)*S(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsbox.f:369:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 230 J=1,N
^^^^^^^^^^^^
./trsbox.f:370:3: DO loop currently ends at statement:
230 TEMP=TEMP+XPT(K,J)*S(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsbox.f:372:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 240 I=1,N
^^^^^^^^^^^^
./trsbox.f:373:3: DO loop currently ends at statement:
240 HS(I)=HS(I)+TEMP*XPT(K,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trsbox.f:378:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 I=1,N
^^^^^^^^^^^^
./trsbox.f:379:3: DO loop currently ends at statement:
260 HRED(I)=HS(I)
^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c trstep.f -o trstep.o
./trstep.f:38:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I=1,N
^^^^^^^^^^^
./trstep.f:42:4: DO loop currently ends at statement:
10 H(I,J)=H(J,I)
^^^^^^^^^^^^^^^^
./trstep.f:41:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 J=1,I
^^^^^^^^^^^
./trstep.f:42:4: DO loop currently ends at statement:
10 H(I,J)=H(J,I)
^^^^^^^^^^^^^^^^
./trstep.f:54:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 I=KPP,N
^^^^^^^^^^^^^
./trstep.f:55:4: DO loop currently ends at statement:
20 SUM=SUM+H(I,K)**2
^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:65:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 30 I=KP,N
^^^^^^^^^^^^
./trstep.f:68:4: DO loop currently ends at statement:
30 Z(I)=TD(I)*W(I)
^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:70:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 J=KP,NM
^^^^^^^^^^^^^
./trstep.f:75:4: DO loop currently ends at statement:
50 WZ=WZ+W(J)*Z(J)
^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:72:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 I=JP,N
^^^^^^^^^^^^
./trstep.f:74:4: DO loop currently ends at statement:
40 Z(J)=Z(J)+H(I,J)*W(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:81:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 I=JP,N
^^^^^^^^^^^^
./trstep.f:82:4: DO loop currently ends at statement:
60 H(I,J)=H(I,J)-W(I)*Z(J)-W(J)*(Z(I)-WZ*W(I))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:91:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 90 I=1,N
^^^^^^^^^^^
./trstep.f:93:4: DO loop currently ends at statement:
90 GSQ=GSQ+G(I)**2
^^^^^^^^^^^^^^^^^^
./trstep.f:95:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 K=1,NM
^^^^^^^^^^^^^
./trstep.f:101:3: DO loop currently ends at statement:
110 GG(I)=GG(I)-SUM*H(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:98:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 100 I=KP,N
^^^^^^^^^^^^^
./trstep.f:99:3: DO loop currently ends at statement:
100 SUM=SUM+GG(I)*H(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:100:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 110 I=KP,N
^^^^^^^^^^^^^
./trstep.f:101:3: DO loop currently ends at statement:
110 GG(I)=GG(I)-SUM*H(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:109:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 120 I=2,N
^^^^^^^^^^^^
./trstep.f:112:3: DO loop currently ends at statement:
120 TDMIN=DMIN1(TDMIN,TD(I))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:116:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 130 I=1,N
^^^^^^^^^^^^
./trstep.f:117:3: DO loop currently ends at statement:
130 D(I)=-SCALE*GG(I)
^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:186:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 I=1,K
^^^^^^^^^^^^
./trstep.f:187:3: DO loop currently ends at statement:
180 D(I)=ZERO
^^^^^^^^^^^^^^^^^
./trstep.f:199:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 I=1,N
^^^^^^^^^^^^
./trstep.f:200:3: DO loop currently ends at statement:
200 DTG=DTG+D(I)*GG(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:202:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 210 I=1,N
^^^^^^^^^^^^
./trstep.f:203:3: DO loop currently ends at statement:
210 D(I)=SCALE*D(I)
^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:221:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 240 I=2,N
^^^^^^^^^^^^
./trstep.f:222:3: DO loop currently ends at statement:
240 W(I)=(-GG(I)-TN(I-1)*W(I-1))/PIV(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:224:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 250 I=NM,1,-1
^^^^^^^^^^^^^^^^
./trstep.f:225:3: DO loop currently ends at statement:
250 D(I)=W(I)-TN(I)*D(I+1)/PIV(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:231:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 I=1,N
^^^^^^^^^^^^
./trstep.f:233:3: DO loop currently ends at statement:
260 WSQ=WSQ+PIV(I)*W(I)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:243:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 I=1,N
^^^^^^^^^^^^
./trstep.f:244:3: DO loop currently ends at statement:
270 D(I)=SCALE*D(I)
^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:274:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 280 I=2,N
^^^^^^^^^^^^
./trstep.f:276:3: DO loop currently ends at statement:
280 W(I)=(DSIGN(ONE,TEMP)+TEMP)/PIV(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:278:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 290 I=NM,1,-1
^^^^^^^^^^^^^^^^
./trstep.f:279:3: DO loop currently ends at statement:
290 Z(I)=W(I)-TN(I)*Z(I+1)/PIV(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:283:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 300 I=1,N
^^^^^^^^^^^^
./trstep.f:286:3: DO loop currently ends at statement:
300 DTZ=DTZ+D(I)*Z(I)
^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:295:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 310 I=1,N
^^^^^^^^^^^^
./trstep.f:296:3: DO loop currently ends at statement:
310 D(I)=D(I)+GAM*Z(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:325:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 330 K=2,N
^^^^^^^^^^^^
./trstep.f:327:3: DO loop currently ends at statement:
330 SHFMAX=DMIN1(SHFMAX,PIVOT)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:367:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 390 K=NM,1,-1
^^^^^^^^^^^^^^^^
./trstep.f:373:3: DO loop currently ends at statement:
390 D(I)=D(I)-SUM*H(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:370:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 380 I=KP,N
^^^^^^^^^^^^^
./trstep.f:371:3: DO loop currently ends at statement:
380 SUM=SUM+D(I)*H(I,K)
^^^^^^^^^^^^^^^^^^^^^^^
./trstep.f:372:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 390 I=KP,N
^^^^^^^^^^^^^
./trstep.f:373:3: DO loop currently ends at statement:
390 D(I)=D(I)-SUM*H(I,K)
^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c uobyqa.f -o uobyqa.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c uobyqb.f -o uobyqb.o
./uobyqb.f:47:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I=1,N
^^^^^^^^^^^
./uobyqb.f:50:4: DO loop currently ends at statement:
10 XPT(K,I)=ZERO
^^^^^^^^^^^^^^^^
./uobyqb.f:49:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 K=1,NPT
^^^^^^^^^^^^^
./uobyqb.f:50:4: DO loop currently ends at statement:
10 XPT(K,I)=ZERO
^^^^^^^^^^^^^^^^
./uobyqb.f:51:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 K=1,NPT
^^^^^^^^^^^^^
./uobyqb.f:53:4: DO loop currently ends at statement:
20 PL(K,J)=ZERO
^^^^^^^^^^^^^^^
./uobyqb.f:52:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 J=1,NPTM
^^^^^^^^^^^^^^
./uobyqb.f:53:4: DO loop currently ends at statement:
20 PL(K,J)=ZERO
^^^^^^^^^^^^^^^
./uobyqb.f:60:4: portability: A DO loop should terminate with an END DO or CONTINUE
30 DO 40 I=1,N
^^^^^^^^^^^^^^
./uobyqb.f:61:4: DO loop currently ends at statement:
40 X(I)=XBASE(I)+XPT(NF+1,I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:170:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 J=1,N
^^^^^^^^^^^
./uobyqb.f:177:4: DO loop currently ends at statement:
80 H(I,J)=PQ(IH)
^^^^^^^^^^^^^^^^
./uobyqb.f:173:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 80 I=1,J
^^^^^^^^^^^
./uobyqb.f:177:4: DO loop currently ends at statement:
80 H(I,J)=PQ(IH)
^^^^^^^^^^^^^^^^
./uobyqb.f:186:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 90 I=1,N
^^^^^^^^^^^
./uobyqb.f:187:4: DO loop currently ends at statement:
90 TEMP=TEMP+D(I)**2
^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:199:3: portability: A DO loop should terminate with an END DO or CONTINUE
100 DO 110 I=1,N
^^^^^^^^^^^^^^^^
./uobyqb.f:201:2: DO loop currently ends at statement:
110 X(I)=XBASE(I)+XNEW(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:227:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 J=1,N
^^^^^^^^^^^^
./uobyqb.f:234:3: DO loop currently ends at statement:
150 VQUAD=VQUAD+W(IH)*PQ(IH)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:230:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 150 I=1,J
^^^^^^^^^^^^
./uobyqb.f:234:3: DO loop currently ends at statement:
150 VQUAD=VQUAD+W(IH)*PQ(IH)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:235:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 170 K=1,NPT
^^^^^^^^^^^^^^
./uobyqb.f:239:3: DO loop currently ends at statement:
170 VLAG(K)=TEMP
^^^^^^^^^^^^^^^^
./uobyqb.f:237:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 160 J=1,NPTM
^^^^^^^^^^^^^^^
./uobyqb.f:238:3: DO loop currently ends at statement:
160 TEMP=TEMP+W(J)*PL(K,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:247:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 190 K=1,NPT
^^^^^^^^^^^^^^
./uobyqb.f:252:3: DO loop currently ends at statement:
190 SUM=SUM+DABS(TEMP*TEMP*TEMP*VLAG(K))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:249:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 180 I=1,N
^^^^^^^^^^^^
./uobyqb.f:250:3: DO loop currently ends at statement:
180 TEMP=TEMP+(XPT(K,I)-XNEW(I))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:261:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 200 I=1,N
^^^^^^^^^^^^
./uobyqb.f:262:3: DO loop currently ends at statement:
200 XOPT(I)=XNEW(I)
^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:297:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 220 I=1,N
^^^^^^^^^^^^
./uobyqb.f:298:3: DO loop currently ends at statement:
220 SUM=SUM+(XPT(K,I)-XOPT(I))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:312:3: portability: A DO loop should terminate with an END DO or CONTINUE
240 DO 250 I=1,N
^^^^^^^^^^^^^^^^
./uobyqb.f:313:3: DO loop currently ends at statement:
250 XPT(KNEW,I)=XNEW(I)
^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:315:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 260 J=1,NPTM
^^^^^^^^^^^^^^^
./uobyqb.f:317:3: DO loop currently ends at statement:
260 PQ(J)=PQ(J)+DIFF*PL(KNEW,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:321:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 270 J=1,NPTM
^^^^^^^^^^^^^^^
./uobyqb.f:322:3: DO loop currently ends at statement:
270 PL(K,J)=PL(K,J)-TEMP*PL(KNEW,J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:341:3: portability: A DO loop should terminate with an END DO or CONTINUE
290 DO 300 K=1,NPT
^^^^^^^^^^^^^^^^^^
./uobyqb.f:344:3: DO loop currently ends at statement:
300 W(K)=W(K)+(XPT(K,I)-XOPT(I))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:343:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 300 I=1,N
^^^^^^^^^^^^
./uobyqb.f:344:3: DO loop currently ends at statement:
300 W(K)=W(K)+(XPT(K,I)-XOPT(I))**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:361:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 340 J=1,N
^^^^^^^^^^^^
./uobyqb.f:372:3: DO loop currently ends at statement:
340 SUMH=SUMH+HALF*TEMP*TEMP
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:363:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 330 I=1,J
^^^^^^^^^^^^
./uobyqb.f:371:3: DO loop currently ends at statement:
330 H(I,J)=TEMP
^^^^^^^^^^^^^^^^^^^
./uobyqb.f:381:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 350 I=1,N
^^^^^^^^^^^^
./uobyqb.f:382:3: DO loop currently ends at statement:
350 SUMG=SUMG+G(I)**2
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:406:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 380 J=1,N
^^^^^^^^^^^^
./uobyqb.f:419:3: DO loop currently ends at statement:
380 PL(K,I)=PL(K,I)+PL(K,IH)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:408:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 360 K=1,NPT
^^^^^^^^^^^^^^
./uobyqb.f:409:3: DO loop currently ends at statement:
360 XPT(K,J)=XPT(K,J)-XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:410:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 380 I=1,J
^^^^^^^^^^^^
./uobyqb.f:419:3: DO loop currently ends at statement:
380 PL(K,I)=PL(K,I)+PL(K,IH)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:415:15: portability: A DO loop should terminate with an END DO or CONTINUE
DO 370 K=1,NPT
^^^^^^^^^^^^^^
./uobyqb.f:416:3: DO loop currently ends at statement:
370 PL(K,J)=PL(K,J)+PL(K,IH)*XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:418:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 380 K=1,NPT
^^^^^^^^^^^^^^
./uobyqb.f:419:3: DO loop currently ends at statement:
380 PL(K,I)=PL(K,I)+PL(K,IH)*XOPT(J)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./uobyqb.f:452:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 430 I=1,N
^^^^^^^^^^^^
./uobyqb.f:453:3: DO loop currently ends at statement:
430 X(I)=XBASE(I)+XOPT(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c update.f -o update.o
./update.f:27:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 I=1,NPT
^^^^^^^^^^^^^
./update.f:30:4: DO loop currently ends at statement:
10 ZMAT(I,JL)=TEMP
^^^^^^^^^^^^^^^^^^^^^^
./update.f:60:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 40 I=1,NPT
^^^^^^^^^^^^^
./update.f:61:4: DO loop currently ends at statement:
40 ZMAT(I,1)=TEMPA*ZMAT(I,1)-TEMPB*VLAG(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./update.f:77:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,NPT
^^^^^^^^^^^^^
./update.f:79:4: DO loop currently ends at statement:
50 ZMAT(I,JB)=SCALB*(ZMAT(I,JB)-TEMPA*W(I)-TEMPB*VLAG(I))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./update.f:91:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 60 I=1,NPT
^^^^^^^^^^^^^
./update.f:94:4: DO loop currently ends at statement:
60 ZMAT(I,IDZ)=TEMP
^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c updatebobyqa.f -o updatebobyqa.o
./updatebobyqa.f:21:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 K=1,NPT
^^^^^^^^^^^^^
./updatebobyqa.f:23:4: DO loop currently ends at statement:
10 ZTEST=DMAX1(ZTEST,DABS(ZMAT(K,J)))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./updatebobyqa.f:22:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 10 J=1,NPTM
^^^^^^^^^^^^^^
./updatebobyqa.f:23:4: DO loop currently ends at statement:
10 ZTEST=DMAX1(ZTEST,DABS(ZMAT(K,J)))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./updatebobyqa.f:34:11: portability: A DO loop should terminate with an END DO or CONTINUE
DO 20 I=1,NPT
^^^^^^^^^^^^^
./updatebobyqa.f:37:4: DO loop currently ends at statement:
20 ZMAT(I,1)=TEMP
^^^^^^^^^^^^^^^^^^^^^
./updatebobyqa.f:57:7: portability: A DO loop should terminate with an END DO or CONTINUE
DO 50 I=1,NPT
^^^^^^^^^^^^^
./updatebobyqa.f:58:4: DO loop currently ends at statement:
50 ZMAT(I,1)=TEMPA*ZMAT(I,1)-TEMPB*VLAG(I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang18/bin/clang++ -std=gnu++17 -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 minqa.so altmov.o bigden.o biglag.o bobyqa.o bobyqb.o lagmax.o minqa.o newuoa.o newuob.o prelim.o rescue.o trsapp.o trsbox.o trstep.o uobyqa.o uobyqb.o update.o updatebobyqa.o -lFortran_main -lFortranRuntime -lFortranDecimal -lm
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/minqa/src'
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/minqa/src'
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/minqa/src'
installing to /data/gannet/ripley/R/packages/tests-clang/minqa.Rcheck/00LOCK-minqa/00new/minqa/libs
** R
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** 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 (minqa)