program test
        integer*8 i, j, k(3)
        double precision d
        i = 12345
        j = 6789
        k(1) = 12134
        k(2) = 25342
        k(3) = 35456
        d = 4.5
        print *, 'main'
        print *, i, j, k(1), k(2), k(3), d
        call testsub(i, j, k, d)
        print *, 'main'
        print *, i, j, k(1), k(2), k(3), d
        end