delete_if_exists Subroutine

subroutine delete_if_exists(fname)

Delete a file if it exists (best-effort cleanup for tests).

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fname

Called by

proc~~delete_if_exists~~CalledByGraph proc~delete_if_exists delete_if_exists proc~test_073 test_073 proc~test_073->proc~delete_if_exists proc~test_078 test_078 proc~test_078->proc~delete_if_exists proc~test_079 test_079 proc~test_079->proc~delete_if_exists proc~test_080 test_080 proc~test_080->proc~delete_if_exists proc~test_087 test_087 proc~test_087->proc~delete_if_exists proc~test_088 test_088 proc~test_088->proc~delete_if_exists proc~test_089 test_089 proc~test_089->proc~delete_if_exists program~check check program~check->proc~test_073 program~check->proc~test_078 program~check->proc~test_079 program~check->proc~test_080 program~check->proc~test_087 program~check->proc~test_088 program~check->proc~test_089

Source Code

   subroutine delete_if_exists(fname)
      character(len=*), intent(in) :: fname
      logical :: ex
      integer :: u
      inquire(file=fname, exist=ex)
      if (ex) then
         open(newunit=u, file=fname, status="old", action="read")
         close(u, status="delete")
      end if
   end subroutine delete_if_exists