cannot compile sm_rngChiSq.f90

[Beliavsky]

c:\fortran\public_domain\coretran>gfortran -c --verbose sm_rngChiSq.f90 Built by Equation Solution http://www.Equation.com. Using built-in specs. COLLECT_GCC=gfortran Target: x86_64-w64-mingw32 Configured with: ../gcc-8-20180408-mingw/configure --host=x86_64-w64-mingw32 --build=x86_64-unknown-linux-gnu --target=x86_64-w64-mingw32 --prefix=/home/gfortran/gcc-home/binary/mingw32/native/x86_64/gcc/8-20180408 --with-sysroot=/home/gfortran/gcc-home/binary/mingw32/cross/x86_64/gcc/8-20171217 --with-gcc --with-gnu-ld --with-gnu-as --with-ld64=no --with-gmp=/home/gfortran/gcc-home/binary/mingw32/native/x86_64/gmp --with-mpfr=/home/gfortran/gcc-home/binary/mingw32/native/x86_64/mpfr --with-mpc=/home/gfortran/gcc-home/binary/mingw32/native/x86_64/mpc --with-cloog=/home/gfortran/gcc-home/binary/mingw32/native/x86_64/cloog --with-diagnostics-color=auto --enable-cloog-backend=isl --enable-targets=i686-w64-mingw32,x86_64-w64-mingw32 --enable-lto --enable-languages=c,c++,fortran --enable-threads=win32 --enable-static --enable-shared=lto-plugin --enable-plugins --enable-ld=yes --enable-libquadmath --enable-libquadmath-support --enable-libgomp --disable-checking --disable-nls --disable-tls --disable-win32-registry Thread model: win32 gcc version 8.0.1 20180408 (experimental) (GCC) COLLECT_GCC_OPTIONS='-c' '-v' '-mtune=generic' '-march=x86-64' c:/equation/bin/../libexec/gcc/x86_64-w64-mingw32/8.0.1/f951.exe sm_rngChiSq.f90 -quiet -dumpbase sm_rngChiSq.f90 -mtune=generic -march=x86-64 -auxbase sm_rngChiSq -version -fintrinsic-modules-path c:/equation/bin/../lib/gcc/x86_64-w64-mingw32/8.0.1/finclude -o C:\Users\vivek\AppData\Local\Temp\ccEor6Qq.s GNU Fortran (GCC) version 8.0.1 20180408 (experimental) (x86_64-w64-mingw32) compiled by GNU C version 8.0.0 20171217 (experimental), GMP version 6.1.2, MPFR version 3.1.4, MPC version 1.0.3, isl version none GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072 GNU Fortran2008 (GCC) version 8.0.1 20180408 (experimental) (x86_64-w64-mingw32) compiled by GNU C version 8.0.0 20171217 (experimental), GMP version 6.1.2, MPFR version 3.1.4, MPC version 1.0.3, isl version none GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072 sm_rngChiSq.f90:19:18:

module procedure rngChisq_d1!(this,ndf,first) 1 Error: MODULE PROCEDURE at (1) must be in a generic module interface sm_rngChiSq.f90:26:43:

call rngGamma(this,half*dble(ndf), first) 1 Error: Unexpected CALL statement in CONTAINS section at (1) sm_rngChiSq.f90:27:19:

this = two * this 1 Error: Unexpected assignment statement in CONTAINS section at (1) sm_rngChiSq.f90:28:5:

end procedure 1 Error: Expecting END SUBMODULE statement at (1) sm_rngChiSq.f90:31:18:

module procedure rngChisq_d1D!(this,ndf,first) 1 Error: MODULE PROCEDURE at (1) must be in a generic module interface sm_rngChiSq.f90:36:16:

integer :: i,N 1 Error: Unexpected data declaration statement in CONTAINS section at (1) sm_rngChiSq.f90:37:14:

N=size(this) 1 Error: Unexpected assignment statement in CONTAINS section at (1) sm_rngChiSq.f90:38:34:

call rngChisq(this(1),ndf,first) 1 Error: Unexpected CALL statement in CONTAINS section at (1) sm_rngChiSq.f90:39:10:

do i=2,N 1 Error: Unexpected DO statement in CONTAINS section at (1) sm_rngChiSq.f90:40:38:

 call rngChisq(this(i),ndf,.false.)
                                  1

Error: Unexpected CALL statement in CONTAINS section at (1) sm_rngChiSq.f90:41:5:

end do 1 Error: Expecting END SUBMODULE statement at (1) sm_rngChiSq.f90:42:5:

end procedure 1 Error: Expecting END SUBMODULE statement at (1)

[leonfoks]

Aha, thanks.

I believe I have that module commented out of my CMake build, so I guess I havn't quite finished this one yet.