update tests t0347 with program to drive subroutine