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

--- Comment #21 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
(In reply to Steve Kargl from comment #19)
> On Thu, Nov 17, 2016 at 12:43:40AM +0000, kevin.b.beard at nasa dot gov
> wrote:
> >     Many thanks to Jerry DeLisle [jvdeli...@charter.net]; he made us realize
> > that an internal record is now not treated the same as an external record!
> 
> Ugh.  It ought to be treated the same.
> 

Working on it. In read_sf we have this:

      /*  Short circuit the read if a comma is found during numeric input.
          The flag is set to zero during character reads so that commas in
          strings are not ignored  */
      else if (q == ',')
        if (dtp->u.p.sf_read_comma == 1)
          {
            seen_comma = 1;
            notify_std (&dtp->common, GFC_STD_GNU,
                        "Comma in formatted numeric read.");
            break;
          }

and it does give an error when using -std=f95. No such code for
read_internal_sf.

Reply via email to