program abort_xlf
  call abort_
end program abort_xlf