subroutine tearDown() integer :: unit open(newunit=unit,file='dir1/exist.dat',status='old') close(unit, status='delete') open(newunit=unit,file='dir1/dir3/exist3.dat',status='old') close(unit, status='delete') open(newunit=unit,file='dir2/exist2.dat',status='old') close(unit, status='delete') call execute_command_line('rmdir dir1/dir3') call execute_command_line('rmdir dir1 dir2') end subroutine tearDown