* installing *source* package ‘deTestSet’ ...
** package ‘deTestSet’ 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/deTestSet/src'
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_andrews.f -o Ex_andrews.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_beam.f -o Ex_beam.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_car.f -o Ex_car.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_crank.f -o Ex_crank.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_emep.f -o Ex_emep.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_fekete.f -o Ex_fekete.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_hires.f -o Ex_hires.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_nand.f -o Ex_nand.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_pleiades.f -o Ex_pleiades.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_pollution.f -o Ex_pollution.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_ring.f -o Ex_ring.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_transistor.f -o Ex_transistor.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_tube.f -o Ex_tube.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_twobit.f -o Ex_twobit.o
./Ex_twobit.f:1927:10: warning: Reference to the procedure 'rprintd2' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=33_8) vs CHARACTER(KIND=1,LEN=32_8)
CALL Rprintd2('Error in TWOBIT due to Phi, vbd ', phi, vbd)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./Ex_twobit.f:1866:9: previous reference to 'rprintd2'
CALL Rprintd2('Error in TWOBIT due to Phi, vbs ', phi, vbs)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c Ex_wheelset.f -o Ex_wheelset.o
./Ex_wheelset.f:831:11: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=32_8) vs CHARACTER(KIND=1,LEN=33_8)
CALL Rprint( 'Out of wheel profile (DERAILMENT)' )
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./Ex_wheelset.f:755:12: previous reference to 'rprint'
CALL Rprint( 'Out of rail profile (DERAILMENT)')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c bimd.f -o bimd.o
./bimd.f:812:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=27_8)
CALL Rprinti1('Invalid values for ORDMIN= ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:813:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=27_8)
CALL Rprinti1('Invalid values for ORDMAX= ',IWORK(3))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:873:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=37_8)
CALL Rprinti1('Invalid value iwork(9), should be >0 ',iwork(9))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:895:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Wrong input work(1) = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:901:9: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=50_8) vs CHARACTER(KIND=1,LEN=17_8)
CALL Rprint('rtol is too small')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:885:9: previous reference to 'rprint'
CALL Rprint(
^
./bimd.f:907:9: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=50_8) vs CHARACTER(KIND=1,LEN=17_8)
CALL Rprint('atol is too small' )
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:885:9: previous reference to 'rprint'
CALL Rprint(
^
./bimd.f:913:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=27_8)
CALL Rprinti1('Atol is too small for index', I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:932:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=20_8)
CALL Rprintd1('Wrong input work(3)=',WORK(3))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:942:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Wrong input work(4) = ',WORK(4))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:952:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Wrong input work(5) = ',WORK(5))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:962:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Wrong input work(6) = ',WORK(6))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:972:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Wrong input work(7) = ',WORK(7))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:982:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Wrong input work(8) = ',WORK(8))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:992:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Wrong input work(9) = ',WORK(9))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1002:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=23_8)
CALL Rprintd1('Wrong input work(10) = ',WORK(10))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1012:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=23_8)
CALL Rprintd1('Wrong input work(11) = ',WORK(11))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1016:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=33_8)
CALL Rprintd1('Invalid values for work(10),FACL ', WORK(10))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1017:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=33_8)
CALL Rprintd1('Invalid values for work(10),FACR ', WORK(11))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1027:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=23_8)
CALL Rprintd1('Wrong input work(13) = ',WORK(12))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1037:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=23_8)
CALL Rprintd1('Wrong input work(13) = ',WORK(13))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1047:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=23_8)
CALL Rprintd1('Wrong input work(14) = ',WORK(14))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1110:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=34_8)
CALL Rprinti1('Insuff. storage for iwork, min. = ',INDIPVT+M-1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1135:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=31_8)
CALL Rprinti1('Insuff. storage for work, min.=',INDEJ0+M-1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1572:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprinti1('Error Ierr returned by the subroutine MAS',IERR)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1573:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1584:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprinti1('Error Ierr returned by the subroutine FCN',IERR)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1585:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1829:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprinti1('Error Ierr returned by the subroutine FNC',IERR)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1830:9: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=50_8) vs CHARACTER(KIND=1,LEN=47_8)
CALL Rprint('during the numerical evaluation of the Jacobian')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:885:9: previous reference to 'rprint'
CALL Rprint(
^
./bimd.f:1831:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1851:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprinti1('Error Ierr returned by the subroutine JAC',IERR)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1852:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1977:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=36_8)
CALL Rprinti1('Matrix is repeatedly singular, IER= ',INFO )
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1978:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1984:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd1('Stepsize too small, h = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:1985:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:2104:9: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=50_8) vs CHARACTER(KIND=1,LEN=36_8)
CALL Rprint('Too many consecutive Newton failures' )
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:885:9: previous reference to 'rprint'
CALL Rprint(
^
./bimd.f:2105:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:2552:20: warning: Reference to the procedure 'norm' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
CALL NORM(M,1,SCAL,ERR(1,2),NERR,NERROLD)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:2184:7: previous reference to 'norm'
CALL NORM(M,K,SCAL,ERR,NERR,NERRUP)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:2629:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd1('Stepsize too small, h = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:2630:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:2635:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=31_8)
CALL Rprinti1('More than nmax steps are needed', MAXSTEP)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:781:9: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:2636:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=16_8) vs CHARACTER(KIND=1,LEN=12_8)
CALL Rprintd1('Exit at t = ', T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimd.f:768:9: previous reference to 'rprintd1'
CALL Rprintd1('Wrong input H = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c bimda.f -o bimda.o
./bimda.f:3067:9: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=47_8) vs CHARACTER(KIND=1,LEN=45_8)
CALL Rprint('par. T_0 must be strictly lower than TSTEP(1)')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./bimda.f:3066:9: previous reference to 'rprint'
CALL Rprint('Warning in calling subroutine CONTSOL the input')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang-trunk/bin/clang -I"/data/gannet/ripley/R/R-flang/include" -DNDEBUG -isystem /usr/local/clang-trunk/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c call_dopri.c -o call_dopri.o
/usr/local/clang-trunk/bin/clang -I"/data/gannet/ripley/R/R-flang/include" -DNDEBUG -isystem /usr/local/clang-trunk/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c call_gam.c -o call_gam.o
/usr/local/clang-trunk/bin/clang -I"/data/gannet/ripley/R/R-flang/include" -DNDEBUG -isystem /usr/local/clang-trunk/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c call_mebdfi.c -o call_mebdfi.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c cashkarp.f -o cashkarp.o
./cashkarp.f:264:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:252:9: previous reference to 'rprinti1'
CALL Rprinti1('wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:277:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(5) = ',IWORK(5))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:252:9: previous reference to 'rprinti1'
CALL Rprinti1('wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:317:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=42_8)
CALL Rprintd1(
^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:344:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=34_8)
CALL Rprintd1('Curious input for beta: work(5) = ',WORK(5))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:384:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=38_8)
CALL Rprinti1('Insufficient storage for work, min. = ',ISTORE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:252:9: previous reference to 'rprinti1'
CALL Rprinti1('wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:392:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=39_8)
CALL Rprinti1('Insufficient storage for iwork, min. = ',ISTORE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:252:9: previous reference to 'rprinti1'
CALL Rprinti1('wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:625:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=17_8)
CALL Rprintd1('Initial step h = ', H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:681:9: warning: Reference to the procedure 'rprint' 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=56_8)
CALL Rprint
^
./cashkarp.f:283:9: previous reference to 'rprint'
CALL Rprint('Warning: put IOUT=2 for dense output ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:931:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprintd1(
^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:933:9: warning: Reference to the procedure 'rprint' 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=39_8)
CALL Rprint('using the standard check of eigenvalues')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:283:9: previous reference to 'rprint'
CALL Rprint('Warning: put IOUT=2 for dense output ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:960:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprintd1(
^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:962:9: warning: Reference to the procedure 'rprint' 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=42_8)
CALL Rprint('using the check of eigenvalues based on YS')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:283:9: previous reference to 'rprint'
CALL Rprint('Warning: put IOUT=2 for dense output ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:1028:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprintd1(
^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1030:9: warning: Reference to the procedure 'rprint' 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=49_8)
CALL Rprint('using stiffness detection based on error estimate')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:283:9: previous reference to 'rprint'
CALL Rprint('Warning: put IOUT=2 for dense output ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:1246:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprintd1(
^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1248:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=8_8)
CALL Rprintd1('Sigma = ', SIGMATOT)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1258:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=59_8)
CALL Rprintd1(
^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1277:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=44_8)
CALL Rprintd1(
^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1307:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Time = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1308:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Kappa = ',kappa/ENORMVE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1309:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Gamma = ',(gamma/ENORMVE)/(XPH-XST))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1310:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigma = ',sigma)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1311:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigmatot = ',sigmatot)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1336:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Time = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1337:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Kappa = ',kappa/ENORMVE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1338:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Gamma = ',(gamma/ENORMVE)/(XPH-XST))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1339:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigma = ',sigma)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1340:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigmatot = ',sigmatot)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1352:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Time = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1353:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Kappa = ',kappa/ENORMVE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1354:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Gamma = ',(gamma/ENORMVE)/(XPH-XST))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1355:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigma = ',sigma)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1356:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigmatot = ',sigmatot)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1363:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd1('Exit of CashKarp at x = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1366:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Step size too small, h = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1374:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Time = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1375:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Kappa = ',kappa/ENORMVE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1376:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Gamma = ',(gamma/ENORMVE)/(XPH-XST))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1377:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigma = ',sigma)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1378:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigmatot = ',sigmatot)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1384:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd1('Exit of CashKarp at x = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1387:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=33_8)
CALL Rprinti1('More than nmax steps are needed: ',NMAX)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:252:9: previous reference to 'rprinti1'
CALL Rprinti1('wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:1395:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Time = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1396:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Kappa = ',kappa/ENORMVE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1397:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Gamma = ',(gamma/ENORMVE)/(XPH-XST))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1398:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigma = ',sigma)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1399:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigmatot = ',sigmatot)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1410:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Time = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1411:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Kappa = ',kappa/ENORMVE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1412:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Gamma = ',(gamma/ENORMVE)/(XPH-XST))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1413:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigma = ',sigma)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1414:9: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=11_8)
CALL Rprintd1('Sigmatot = ',sigmatot)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1418:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=45_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd1('Exit of CashKarp at x = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:304:9: previous reference to 'rprintd1'
CALL Rprintd1(
^
./cashkarp.f:1631:10: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=38_8)
CALL Rprinti1('No dense output available for comp. nr',II)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./cashkarp.f:252:9: previous reference to 'rprinti1'
CALL Rprinti1('wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang-trunk/bin/clang -I"/data/gannet/ripley/R/R-flang/include" -DNDEBUG -isystem /usr/local/clang-trunk/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c deTestSetMethods.c -o deTestSetMethods.o
/usr/local/clang-trunk/bin/clang -I"/data/gannet/ripley/R/R-flang/include" -DNDEBUG -isystem /usr/local/clang-trunk/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c de_utils.c -o de_utils.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c dopri6.f -o dopri6.o
./dopri6.f:228:10: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:216:10: previous reference to 'rprinti1'
CALL Rprinti1( 'Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:242:10: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(5) = ',IWORK(5))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:216:10: previous reference to 'rprinti1'
CALL Rprinti1( 'Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:280:10: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=42_8)
CALL Rprintd1(
^
./dopri6.f:266:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri6.f:307:10: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=34_8)
CALL Rprintd1('Curious input for beta: work(5) = ',WORK(5))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:266:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri6.f:335:10: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=38_8)
CALL Rprinti1('Insufficient storage for work, min. = ',ISTORE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:216:10: previous reference to 'rprinti1'
CALL Rprinti1( 'Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:344:10: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=39_8)
CALL Rprinti1('Insufficient storage for iwork, min. = ',ISTORE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:216:10: previous reference to 'rprinti1'
CALL Rprinti1( 'Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:493:10: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprintd1('The problem seems to become stiff at x = ',X )
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:266:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri6.f:597:8: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Exit of DOPRI5 at x = ', X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:266:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri6.f:598:8: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Step size too small, h = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:266:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri6.f:604:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Exit of DOPRI5 at x = ', X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:266:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri6.f:605:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=32_8)
CALL Rprinti1(
^
./dopri6.f:216:10: previous reference to 'rprinti1'
CALL Rprinti1( 'Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:612:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=46_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprintd1('Exit of DOPRI5 at x = ', X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri6.f:266:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c dopri8.f -o dopri8.o
./dopri8.f:250:10: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=26_8)
CALL Rprinti1(' Curious input iwork(5) = ',IWORK(5))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:225:10: previous reference to 'rprinti1'
CALL Rprinti1(' Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:285:10: warning: Reference to the procedure 'rprintd1' 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=43_8)
CALL Rprintd1(
^
./dopri8.f:272:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri8.f:312:10: warning: Reference to the procedure 'rprintd1' 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=35_8)
CALL Rprintd1(' Curious input for beta: work(5) = ',WORK(5))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:272:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri8.f:343:10: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=38_8)
CALL Rprinti1('Insufficient storage for work, min. = ',ISTORE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:225:10: previous reference to 'rprinti1'
CALL Rprinti1(' Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:351:10: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=39_8)
CALL Rprinti1('Insufficient storage for iwork, min. = ',ISTORE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:225:10: previous reference to 'rprinti1'
CALL Rprinti1(' Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:716:10: warning: Reference to the procedure 'rprintd1' 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=42_8)
CALL Rprintd1(' The problem seems to become stiff at x = ',X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:272:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri8.f:816:10: warning: Reference to the procedure 'rprintd1' 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 Rprintd1('Exit of DOP853 at x = ', X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:272:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri8.f:820:9: warning: Reference to the procedure 'rprintd1' 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 Rprintd1(' Step size too small, h = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:272:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri8.f:827:10: warning: Reference to the procedure 'rprintd1' 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 Rprintd1('Exit of DOP853 at x = ', X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:272:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
./dopri8.f:831:9: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=34_8)
CALL Rprinti1(' More than nmax steps are needed: ',NMAX )
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:225:10: previous reference to 'rprinti1'
CALL Rprinti1(' Wrong input iwork(1) = ',IWORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:837:10: warning: Reference to the procedure 'rprintd1' 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 Rprintd1('Exit of DOP853 at x = ', X)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dopri8.f:272:10: previous reference to 'rprintd1'
CALL Rprintd1(
^
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c errmsg.f -o errmsg.o
./errmsg.f:53:10: warning: Reference to the procedure 'rprintfi1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: constant-length vs non-constant-length character dummy arguments
call rprintfi1(' '//char(0), i1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./errmsg.f:11:10: previous reference to 'rprintfi1'
call rprintfi1(label//char(0), data(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang-trunk/bin/clang -I"/data/gannet/ripley/R/R-flang/include" -DNDEBUG -isystem /usr/local/clang-trunk/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c forcings.c -o forcings.o
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c gamd.f90 -o gamd.o
./gamd.f90:4592:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(3) = ',IWORK(3))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4602:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(4) = ',IWORK(4))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4612:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(5) = ',IWORK(5))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4623:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(6) = ',IWORK(6))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4633:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(7) = ',IWORK(7))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4654:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprinti1('Curious input iwork(8) = ',IWORK(8))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4684:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd1('Curious input work(3) = ',WORK(3))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4697:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd1('Wrong input for work(4) ',WORK(4))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4720:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(15) ',WORK(15))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4738:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(16) ',WORK(16))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4756:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(17) ',WORK(17))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4774:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(18) ',WORK(18))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4806:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd1('Wrong input for work(9) ',WORK(9))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4818:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(10) ',WORK(10))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4830:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(11) ',WORK(11))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4842:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(12) ',WORK(12))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4854:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(13) ',WORK(13))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4865:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(14) ',WORK(14))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4876:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(15) ',WORK(15))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4887:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(16) ',WORK(16))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4899:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1('Wrong input for work(17) ',WORK(17))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4914:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprinti1('Tolerances are too small', I)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4954:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=50_8)
CALL Rprint('Bandwidth of MAS not smaller than bandwidth of JAC')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4907:7: previous reference to 'rprint'
CALL Rprint('Tolerances are too small')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4982:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=39_8)
CALL Rprinti1('Insufficient storage for work, min. is ',ISTORE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4991:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=35_8)
CALL Rprinti1('Insuff. storage for iwork, min. = ',ISTORE)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:5193:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=44_8)
CALL Rprint('GAM:ERROR: cannot handle IERR= -1 in (T0,Y0)')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4907:7: previous reference to 'rprint'
CALL Rprint('Tolerances are too small')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:5240:8: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=24_8) vs CHARACTER(KIND=1,LEN=40_8)
CALL Rprint('ERROR: IERR = -1 in numerical Jacobians')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4907:7: previous reference to 'rprint'
CALL Rprint('Tolerances are too small')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:5346:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=36_8)
CALL Rprinti1('Matrix is repeatedly singular, IER= ',IER)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:5348:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=20_8)
CALL Rprintd1(' exit of GAM at t = ',T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:5639:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd1(' Stepsize too small, h = ',H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:5640:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=20_8)
CALL Rprintd1(' exit of GAM at t = ',T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:5646:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=23_8) vs CHARACTER(KIND=1,LEN=33_8)
CALL Rprinti1('More than nmax = Steps are needed', NMAX)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4582:7: previous reference to 'rprinti1'
CALL Rprinti1('Wrong input iwork(2) = ',IWORK(2))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:5647:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=20_8)
CALL Rprintd1(' exit of GAM at t = ',T0)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./gamd.f90:4665:7: previous reference to 'rprintd1'
CALL Rprintd1('Coefficients have 20 digits, Uround = ',WORK(1))
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/usr/local/clang-trunk/bin/flang-new -fpic -O2 -pedantic -c mebdfi.f -o mebdfi.o
error: Semantic errors in mebdfi.f
./mebdfi.f:360:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=35_8)
CALL Rprinti1('Size of workspace must be at least ',I11 +1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:333:13: previous reference to 'rprinti1'
CALL Rprinti1 ('Illegal value for number of equations ',N)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:367:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=34_8)
CALL Rprint('Integer workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:368:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=35_8)
CALL Rprinti1('Size of workspace must be at least ', N +14)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:333:13: previous reference to 'rprinti1'
CALL Rprinti1 ('Illegal value for number of equations ',N)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:488:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=21_8)
CALL Rprint('Stepsize is too small')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:499:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=44_8)
CALL Rprint(' interpolation was done as on normal return.')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:500:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=41_8)
CALL Rprint(' desired parameter changes were not made.')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:530:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprinti1('Illegal input.. idid =', IDID)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:333:13: previous reference to 'rprinti1'
CALL Rprinti1 ('Illegal value for number of equations ',N)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:541:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=28_8)
CALL Rprint('Illegal input.. rtol .le. 0.')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:553:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=28_8)
CALL Rprint('Illegal input.. atol .le. 0.')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:561:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=28_8)
CALL Rprint('Illegal input.. rtol .le. 0.')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:582:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=28_8)
CALL Rprint('Illegal input.. rtol .le. 0.')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:592:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprint('Illegal input.. n .le. 0')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:600:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=35_8)
CALL Rprint('Illegal input.. (t0-tout)*h .ge. 0.')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:609:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=35_8)
CALL Rprinti1('Illegal input.. method flag, mf, = ',MF)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:333:13: previous reference to 'rprinti1'
CALL Rprinti1 ('Illegal value for number of equations ',N)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:610:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=36_8)
CALL Rprint (' allowed values are 21 or 22')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:617:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=22_8)
CALL Rprint('Illegal value for itol')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:624:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprint('Illegal value for maxder')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:632:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=48_8)
CALL Rprint('Bad input for number of variables of index 1,2,3')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:672:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=33_8)
CALL Rprint('Warning.. T + H = T on next step.')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:697:7: warning: Reference to the procedure 'rprintd2' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=13_8) vs CHARACTER(KIND=1,LEN=25_8)
CALL Rprintd2('KFLAG = -2 at t and h = ',T,H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:498:7: previous reference to 'rprintd2'
CALL Rprintd2('tout and h = ', TOUT, H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:698:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=50_8)
CALL Rprint('The requested error is smaller than can be handled')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:704:7: warning: Reference to the procedure 'rprintd1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=43_8) vs CHARACTER(KIND=1,LEN=33_8)
CALL Rprintd1('FLAG = -3 from integrator at t = ', T)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:497:7: previous reference to 'rprintd1'
CALL Rprintd1('IDID = -1 on input & (t-tout)*h .ge. 0. t= ', T)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:705:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=43_8)
CALL Rprint('corrector convergence could not be achieved')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:711:7: warning: Reference to the procedure 'rprintd2' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=13_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd2('Kflag = -5 at t and h = ',T, H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:498:7: previous reference to 'rprintd2'
CALL Rprintd2('tout and h = ', TOUT, H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:712:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=14_8)
CALL Rprint('Overshoot Tout')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:718:7: warning: Reference to the procedure 'rprintd2' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=13_8) vs CHARACTER(KIND=1,LEN=24_8)
CALL Rprintd2('Kflag = -7 at t and h = ', T, H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:498:7: previous reference to 'rprintd2'
CALL Rprintd2('tout and h = ', TOUT, H)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:719:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=18_8)
CALL Rprint('Stepsize too small')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:819:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=43_8)
CALL Rprint('Problem appears unsolvable with given input')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:820:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=43_8)
CALL Rprint(' hmin reduced by a factor of 1.0e10')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:3208:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=48_8)
CALL Rprint('IERR is non-zero due to an illegal function call')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:3212:7: warning: Reference to the procedure 'rprint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=31_8) vs CHARACTER(KIND=1,LEN=21_8)
CALL Rprint('Stepsize is too small')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:359:7: previous reference to 'rprint'
CALL Rprint('Real workspace is insufficient ')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:3825:7: warning: Reference to the procedure 'rprinti1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=38_8) vs CHARACTER(KIND=1,LEN=42_8)
CALL Rprinti1('Warning. The value emin may be incorrect: ',LEMIN)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:333:13: previous reference to 'rprinti1'
CALL Rprinti1 ('Illegal value for number of equations ',N)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:4202:14: error: 'large' is storage associated with 'small' by EQUIVALENCE elsewhere in COMMON block /sizes/
COMMON/sizes/ SMALL, LARGE, RIGHT, DIVER, LOG10, SC
^^^^^
./mebdfi.f:4202:14: error: 'right' is storage associated with 'small' by EQUIVALENCE elsewhere in COMMON block /sizes/
COMMON/sizes/ SMALL, LARGE, RIGHT, DIVER, LOG10, SC
^^^^^
./mebdfi.f:4202:14: error: 'diver' is storage associated with 'small' by EQUIVALENCE elsewhere in COMMON block /sizes/
COMMON/sizes/ SMALL, LARGE, RIGHT, DIVER, LOG10, SC
^^^^^
./mebdfi.f:4202:14: error: 'log10' is storage associated with 'small' by EQUIVALENCE elsewhere in COMMON block /sizes/
COMMON/sizes/ SMALL, LARGE, RIGHT, DIVER, LOG10, SC
^^^^^
./mebdfi.f:4336:15: warning: Reference to the procedure 'rexit' 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=17_8)
CALL rexit('Stopped in D1mach')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:334:13: previous reference to 'rexit'
call rexit('stopped')
^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:4340:15: warning: Reference to the procedure 'rexit' 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=17_8)
CALL rexit('Stopped in D1mach')
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mebdfi.f:334:13: previous reference to 'rexit'
call rexit('stopped')
^^^^^^^^^^^^^^^^^^^^^
make[1]: *** [/data/gannet/ripley/R/R-flang/etc/Makeconf:215: mebdfi.o] Error 1
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-flang/deTestSet/src'
ERROR: compilation failed for package ‘deTestSet’
* removing ‘/data/gannet/ripley/R/packages/tests-flang/Libs/deTestSet-lib/deTestSet’
Command exited with non-zero status 1
Time 1:08.98, 51.78 + 2.26