demo_system_remove.f90 Source File


Contents


Source Code

     program demo_system_remove
     use M_system, only : system_remove
     character(len=*),parameter :: FILE='MyJunkFile.txt'
     integer :: ierr
     write(*,*)'BEFORE CREATED '//FILE
     call execute_command_line('ls -l '//FILE)
     write(*,*)

     ! note intentionally causes error if file exists
     open(unit=10,file=FILE,status='NEW')
     write(*,*)'AFTER OPENED '//FILE
     call execute_command_line('ls -l '//FILE)
     write(*,*)

     write(10,'(a)') 'This is a file I want to delete'
     close(unit=10)
     write(*,*)'AFTER CLOSED '
     call execute_command_line('ls -l '//FILE)
     write(*,*)

     ierr=system_remove(FILE)
     write(*,*)'AFTER REMOVED',IERR
     call execute_command_line('ls -l '//FILE)
     write(*,*)

     end program demo_system_remove