* installing *source* package ‘minqa’ ... ** package ‘minqa’ successfully unpacked and MD5 sums checked ** using staged installation ** libs using Fortran compiler: ‘flang-new version 18.1.4’ using C++ compiler: ‘clang version 18.1.4’ 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)