demo_fileglob.f90 Source File


Contents

Source Code


Source Code

     program demo_fileglob  ! simple unit test
        call tryit('*.*')
        call tryit('/tmp/__notthere.txt')
     contains

     subroutine tryit(string)
        use M_system, only : fileglob
        character(len=255),pointer :: list(:)
        character(len=*) :: string
        call fileglob(string, list)
        write(*,*)'Files:',size(list)
        write(*,'(a)')(trim(list(i)),i=1,size(list))
        deallocate(list)
     end subroutine tryit

     end program demo_fileglob  ! simple unit test