$ gfortran -march=native -mfpmath=sse -O2 -c random.f90 
random.f90:1123.27:

        INTEGER :: RVKBINOM(N)
                           1
Error: Symbol 'rvkbinom' at (1) already has basic type of INTEGER
random.f90:1138.27:

        INTEGER :: RVPBINOM(N)
                           1
Error: Symbol 'rvpbinom' at (1) already has basic type of INTEGER
random.f90:1153.26:

        INTEGER :: RSBINOM(N)
                          1
Error: Symbol 'rsbinom' at (1) already has basic type of INTEGER
random.f90:1162.8:

        RSBINOM=TMP
        1
Error: Incompatible ranks 0 and 1 in assignment at (1)
random.f90:1146.8:

        RVPBINOM=TMP
        1
Error: Incompatible ranks 0 and 1 in assignment at (1)
random.f90:1131.8:

        RVKBINOM=TMP
        1
Error: Incompatible ranks 0 and 1 in assignment at (1)