* installing *source* package ‘BTSR’ ... ** package ‘BTSR’ successfully unpacked and MD5 sums checked ** using staged installation ** libs using C compiler: ‘clang version 17.0.0 (https://github.com/llvm/llvm-project.git 0aecf7ff0d81930d3d46daf1c0552441b793d904)’ using Fortran compiler: ‘flang-new version 17.0.0 (https://github.com/llvm/llvm-project.git 0aecf7ff0d81930d3d46daf1c0552441b793d904)’ make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-flang/BTSR/src' /usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c 00_lbfgsb.f90 -o 00_lbfgsb.o ./00_lbfgsb.f90:712:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=54_8) call labelpr(' refresh the lbfgs memory and restart the iteration.', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:766:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=61_8) call labelpr(' nonpositive definiteness in cholesky factorization in formk;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:767:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=54_8) call labelpr(' refresh the lbfgs memory and restart the iteration.', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:799:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=54_8) call labelpr(' refresh the lbfgs memory and restart the iteration.', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:858:14: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=34_8) call labelpr(' bad direction in the line search;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:859:14: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=54_8) call labelpr(' refresh the lbfgs memory and restart the iteration.', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:936:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=44_8) call dblepr(" nskip / ys = / -gs = / bfgs update skipped",& ^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:967:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=61_8) call labelpr(' nonpositive definiteness in cholesky factorization in formk;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:968:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=54_8) call labelpr(' refresh the lbfgs memory and restart the iteration.', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1155:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=57_8) call labelpr( 'the initial x is infeasible. restart with its projection.', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1158:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=30_8) call labelpr( 'this problem is unconstrained.', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1162:21: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=50_8) if (iprint > 0) call intpr1('at x0 "k" variables are exactly at the bounds. k =',-1,nbdd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1488:25: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=23_8) if (iprint >= 0) call labelpr('subgnorm = 0. gcp = x.', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1501:23: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=50_8) if (iprint >= 99) call labelpr('---------------- cauchy entered-------------------', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1582:8: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call dscal(col,theta,p(col+1),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:927:8: previous reference to 'dscal' call dscal(n,stp,d,1) ^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1612:23: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=39_8) if (iprint >= 99) call intpr1('there are nbreak breakpoints. nbreak = ', -1, nbreak) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2048:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call dcopy(m-jy,wn1(jy+1,jy+1),1,wn1(jy,jy),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:647:14: previous reference to 'dcopy' call dcopy(n,t,1,x,1) ^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2049:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call dcopy(m-jy,wn1(js+1,js+1),1,wn1(js,js),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:647:14: previous reference to 'dcopy' call dcopy(n,t,1,x,1) ^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2050:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call dcopy(m-1,wn1(m+2,jy+1),1,wn1(m+1,jy),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:647:14: previous reference to 'dcopy' call dcopy(n,t,1,x,1) ^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2656:5: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call dcopy(n,d,1,ws(1,itail),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:647:14: previous reference to 'dcopy' call dcopy(n,t,1,x,1) ^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2657:5: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call dcopy(n,r,1,wy(1,itail),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:647:14: previous reference to 'dcopy' call dcopy(n,t,1,x,1) ^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2670:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call dcopy(j,ss(2,j+1),1,ss(1,j),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:647:14: previous reference to 'dcopy' call dcopy(n,t,1,x,1) ^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2671:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call dcopy(col-j,sy(j+1,j+1),1,sy(j,j),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:647:14: previous reference to 'dcopy' call dcopy(n,t,1,x,1) ^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2724:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=26_8) call dblepr("N, M and machine precision", -1,& ^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2727:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=4_8) call dblepr("L = ", -1, l, n) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2728:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=5_8) call dblepr("x0 = ", -1, x, n) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2729:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=4_8) call dblepr("u = ", -1, u, n) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2825:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=31_8) call dblepr("line search times; norm of step", -1, & ^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2828:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=33_8) call dblepr("at iterate / f= / |proj g|= ", & ^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2830:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=4_8) call dblepr("x = ", -1, x, n) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2831:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=4_8) call dblepr("g = ", -1, g, n) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2840:23: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=33_8) if (imod == 0) call dblepr("at iterate / f= / |proj g|= ", & ^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2887:8: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=6_8) call labelpr(' * * *', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2888:8: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=32_8) call intpr1('tit = total number of iterations', -1, iter) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2889:8: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=42_8) call intpr1('tnf = total number of function evaluations', -1, nfgv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2890:8: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=68_8) call intpr1('tnpt_quad = total number of segments explored during'// & ^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2892:8: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=37_8) call intpr1('skip = number of bfgs updates skipped', -1, nskip) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2893:8: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=64_8) call intpr1('nact = number of active bounds at final generalized'//& ^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2896:8: warning: Reference to the procedure 'dblepr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=24_8) call dblepr1('f = final function value', -1, f) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2895:8: previous reference to 'dblepr1' call dblepr1('projg = norm of the final projected gradient', -1, sbgnrm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2897:8: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=6_8) call labelpr(' * * *', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2902:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=30_8) vs CHARACTER(KIND=1,LEN=3_8) call dblepr('x =', -1, x, n) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:672:8: previous reference to 'dblepr' call dblepr("at iterate: / f = / |proj g|=", -1, (/dble(iter),f,sbgnrm/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2906:25: warning: Reference to the procedure 'dblepr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=3_8) if (iprint >= 1) call dblepr1('f =', -1, f) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2895:8: previous reference to 'dblepr1' call dblepr1('projg = norm of the final projected gradient', -1, sbgnrm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2912:8: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=60_8) call labelpr(task, -1) ^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2915:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=62_8) call labelpr("Matrix in 1st Cholesky factorization in formk is not Pos. Def.",-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2917:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=62_8) call labelpr("Matrix in 2st Cholesky factorization in formk is not Pos. Def.",-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2919:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=62_8) call labelpr("Matrix in the Cholesky factorization in formt is not Pos. Def.",-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2921:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=184_8) call labelpr("Derivative >= 0, backtracking line search impossible."//& ^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2926:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=143_8) call labelpr("Warning: more than 10 function and gradient evaluations"//& ^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2930:11: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=29_8) call intpr1("Input nbd(k) is invalid. k = ", -1, k) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2932:11: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=10_8) vs CHARACTER(KIND=1,LEN=39_8) call intpr1("l(k) > u(k). No feasible solution. k =", -1, k) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:684:23: previous reference to 'intpr1' if (iprint >= 99) call intpr1('iteration ', -1, iter + 1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2934:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=34_8) call labelpr("The triangular system is singular.", -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2936:11: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=218_8) call labelpr("Line search cannot locate an adequate point after"//& ^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2957:11: warning: Reference to the procedure 'dblepr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=22_8) call dblepr1(' cauchy time (seconds)', -1, cachyt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2895:8: previous reference to 'dblepr1' call dblepr1('projg = norm of the final projected gradient', -1, sbgnrm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2958:11: warning: Reference to the procedure 'dblepr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=37_8) call dblepr1(' subspace minimization time (seconds)', -1, sbtime) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2895:8: previous reference to 'dblepr1' call dblepr1('projg = norm of the final projected gradient', -1, sbgnrm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2959:11: warning: Reference to the procedure 'dblepr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=27_8) call dblepr1(' line search time (seconds)', -1, lnscht) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2895:8: previous reference to 'dblepr1' call dblepr1('projg = norm of the final projected gradient', -1, sbgnrm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2963:8: warning: Reference to the procedure 'dblepr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=44_8) vs CHARACTER(KIND=1,LEN=26_8) call dblepr1(' total user time (seconds)', -1, time) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:2895:8: previous reference to 'dblepr1' call dblepr1('projg = norm of the final projected gradient', -1, sbgnrm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:3266:23: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=46_8) if (iprint >= 99) call labelpr("----------------subsm entered-----------------",-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:3436:23: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=37_8) vs CHARACTER(KIND=1,LEN=43_8) if (iprint >= 99) call labelpr("----------------exit subsm-----------------",-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:711:11: previous reference to 'labelpr' call labelpr(' singular triangular system detected;', -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:4169:8: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call daxpy(n-j+1,temp,t(j,j-1),1,b(j),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1705:8: previous reference to 'daxpy' call daxpy(col2,dt,p,1,c,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:4183:8: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call daxpy(j,temp,t(1,j+1),1,b(1),1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./00_lbfgsb.f90:1705:8: previous reference to 'daxpy' call daxpy(col2,dt,p,1,c,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ /usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c 00_main.f90 -o 00_main.o /usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c 00_specfun.f90 -o 00_specfun.o /usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c 01_Nelder.f90 -o 01_Nelder.o ./01_Nelder.f90:182:8: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=51_8) call labelpr("Progress Report every 'iprint' function evaluations", -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:177:8: previous reference to 'labelpr' call labelpr("------------------------------------------------", -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:184:8: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=37_8) call labelpr(" ACTION / NEVAL / FUNC.VALUE. / LOWER", -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:177:8: previous reference to 'labelpr' call labelpr("------------------------------------------------", -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:349:20: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=11_8) call dblepr(" EXTENSION", -1, (/dble(neval), hstst, hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:245:11: previous reference to 'dblepr' call dblepr(" BUILD", -1, (/dble(i), h(i), hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:376:23: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=12_8) call dblepr(" REFLECTION", -1, (/dble(neval), hstar, hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:245:11: previous reference to 'dblepr' call dblepr(" BUILD", -1, (/dble(i), h(i), hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:421:28: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=15_8) if(j == 1) call dblepr(" OUT-REDUCTION", -1, (/dble(neval), hstst, hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:245:11: previous reference to 'dblepr' call dblepr(" BUILD", -1, (/dble(i), h(i), hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:425:28: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=14_8) if(j == 0) call dblepr(" In-REDUCTION", -1, (/dble(neval), hstst, hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:245:11: previous reference to 'dblepr' call dblepr(" BUILD", -1, (/dble(i), h(i), hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:453:20: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=8_8) call dblepr(" SHRINK", -1, (/dble(neval), h(i), hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:245:11: previous reference to 'dblepr' call dblepr(" BUILD", -1, (/dble(i), h(i), hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:474:8: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=31_8) call intpr1(" No. of function evaluations > ", -1, maxfn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:183:8: previous reference to 'intpr1' call intpr1("iprint = ", -1, iprint) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:476:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=28_8) call dblepr(" Minimum in the last simplex", -1, p, nop) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:245:11: previous reference to 'dblepr' call dblepr(" BUILD", -1, (/dble(i), h(i), hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:477:8: warning: Reference to the procedure 'dblepr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=41_8) vs CHARACTER(KIND=1,LEN=28_8) call dblepr1(" Function value at minimum =", -1, func) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:475:8: previous reference to 'dblepr1' call dblepr1(" RMS of function values of last simplex =", -1, hstd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:483:8: warning: Reference to the procedure 'labelpr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=48_8) vs CHARACTER(KIND=1,LEN=24_8) call labelpr(" EVIDENCE OF CONVERGENCE", -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:177:8: previous reference to 'labelpr' call labelpr("------------------------------------------------", -1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:484:8: warning: Reference to the procedure 'intpr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=9_8) vs CHARACTER(KIND=1,LEN=31_8) call intpr1(" No. of function evaluations = ", -1, neval) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:183:8: previous reference to 'intpr1' call intpr1("iprint = ", -1, iprint) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:486:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=7_8) vs CHARACTER(KIND=1,LEN=11_8) call dblepr(" Minimum at", -1, p, nop) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:245:11: previous reference to 'dblepr' call dblepr(" BUILD", -1, (/dble(i), h(i), hmin/), 3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:487:8: warning: Reference to the procedure 'dblepr1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=41_8) vs CHARACTER(KIND=1,LEN=28_8) call dblepr1(" Function value at minimum =", -1, func) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./01_Nelder.f90:475:8: previous reference to 'dblepr1' call dblepr1(" RMS of function values of last simplex =", -1, hstd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ /usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c 01_RNG.f90 -o 01_RNG.o error: loc("/data/gannet/ripley/R/packages/tests-flang/BTSR/src/01_RNG.f90":82:33): /data/gannet/ripley/Sources2/LLVM-git/llvm-project/flang/lib/Lower/ConvertType.cpp:392: not yet implemented: derived type components with non default lower bounds LLVM ERROR: aborting make[1]: *** [/data/gannet/ripley/R/R-flang/etc/Makeconf:219: 01_RNG.o] Error 1 make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-flang/BTSR/src' ERROR: compilation failed for package ‘BTSR’ * removing ‘/data/gannet/ripley/R/packages/tests-flang/Libs/BTSR-lib/BTSR’ Command exited with non-zero status 1 Time 0:13.84, 6.50 + 0.61