[Bug fortran/83560] list-directed formatting of INTEGER is missing plus on output when output open with SIGN='PLUS'

[urbanjost at comcast dot net]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83560

--- Comment #2 from urbanjost at comcast dot net ---
Created attachment 42958
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=42958&action=edit
NAMELIST integers exhibit same problem

PS:

An INTEGER in a NAMELIST shows the same issue (missing +). Added larger test as
attachment, output of which is:

 PASS WHERE FILE HAS SIGN="PLUS"
       LIST DIRECTED   +12.3456001             789 ( +123.456001    ,
+987.653992    )
      GENERAL FORMATTED +12.3456001 +789 +123.456001 +987.653992
      GENERAL FORMATTED EXPLICIT SUPPRESS 12.3456001 789 123.456001 987.653992
      GENERAL FORMATTED EXPLICIT PLUS +12.3456001 +789 +123.456001 +987.653992
      FORMATTED +12.3456 +789 +123.4560 +987.6540
      FORMATTED +12.3456 +789 +123.4560 +987.6540
      &NLIST
       I=        789,    <<== MISSING PLUS
       A= +12.3456001    ,
       X=( +123.456001    , +987.653992    ),
       /

       PASS WHERE FILE HAS SIGN="SUPPRESS"
       LIST DIRECTED    12.3456001             789 (  123.456001    , 
987.653992    )
      GENERAL FORMATTED 12.3456001 789 123.456001 987.653992
      GENERAL FORMATTED EXPLICIT SUPPRESS 12.3456001 789 123.456001 987.653992
      GENERAL FORMATTED EXPLICIT PLUS +12.3456001 +789 +123.456001 +987.653992
      FORMATTED  12.3456  789  123.4560  987.6540
      FORMATTED  12.3456  789  123.4560  987.6540
      &NLIST
       I=        789,
       A=  12.3456001    ,
       X=(  123.456001    ,  987.653992    ),
       /