anchor.diff:        open(10, file=testoutput, status='OLD', iostat=stat, iomsg=msg)
         if (stat /= 0) then
            write (*, *) "ERROR! ", msg
  -         close(10)
  +         close(10, status='DELETE')
            return
         end if
   
  
positive.code:          if (msg /= "") exit ! Early exit, e.g. no plan
        end do 
  
        close(10)
  
        if (msg /= "") then
           write (*, *) msg
  
negative.code:    call cpu_time(t2)
     time = t2 - t1
  
     write (*, '("--------------------------------------------------")')
     write (*, '("      Files:    ",I0)') nfiles
     write (*, '("      Planned:  ",I0," (ran ",I0,")")') &
  