! A fortran95 lib program by G95
! By WQY
subroutine sub()
  implicit none
  write(*,*) "This is subroutine"
  return
end
