[Bug fortran/41678] Format label as second item in io control list is rejected

[dominiq at lps dot ens dot fr]

------- Comment #5 from dominiq at lps dot ens dot fr  2009-10-12 13:00 -------
I think the problem is here (around line 706 in the last commit):

      if (t == FMT_F || t == FMT_EN || t == FMT_ES || t == FMT_D
          || t == FMT_G || t == FMT_E)
        {
          repeat = 1;
          goto data_desc;
        }

      if (t != FMT_COMMA && t != FMT_RPAREN && t != FMT_SLASH)
        {
          fmt->error = "Comma required after P descriptor";
          goto finished;
        }

There is not provision for a repeat count before D, E, EN, ES, F or G
descriptors without comma before it.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41678