Description: Fixed a missing read_once() for X format
From: Francesco Paolo Lovergine <frankie@debian.org>
Forwarded: no
Last-Update: 2021-01-05

--- a/Format.pm
+++ b/Format.pm
@@ -1101,6 +1101,12 @@
     "";
 }
 
+sub read_once {
+    my ($self) = @_;
+    $self->writer->position( relative => 1 );
+    "";
+}
+
 package Fortran::Format::Edit::SLASH;
 
 our @ISA = "Fortran::Format::Node";
