program list_files
! An minimum example of a subroutine procedure call
! JWP 22/10/98

implicit none

! This instruction makes it work:
call system ('ls')
!
end program files