* 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