[gfortran] patch for pr libfortran/21303

[Jerry DeLisle]

FX Coudert wrote:
> 
> Humpf. (thinking) (thinking harder) (reaching brain parts not yet 
> affected by the alcohol diffusion) Are you regtesting on cygwin? Then 
> you might want to replace the \n by (\n|\r\n|\n\r). I can't tell you 
> more as I'm hosting a cocktail party tonight and am preparing the drinks 
> before people get here :)
> 
> FX
> 
> 

I am using i686-pc-linux-gnu (aka Fedora Core 4)

At compile time with -std=f95 -pedantic:

The warning is:

$ gfc -std=f95  fmt_l.f90
  In file fmt_l.f90:14

or" }
     1
Warning: Positive width required in format string at (1).  Also notice the 
location is off at the end of the comment.

So the message does not match the dg-warning.  I gather this is not what you 
intended.

At run time I get this one time message, after which the program terminates:

$ ./a.out
At line 14 of file fmt_l.f90
Fortran runtime error: Positive width required in format
(L)
   ^

The test case uses ! { dg-options "-std=gnu -pedantic" }

If I change this to ! { dg-options "-pedantic" } , the messages match, but I 
have not succeeded in getting the dg-output to accept the /n at the end.

Regards,

Jerry