[patch,fortran] PR90374 add e0 zero width exponent support

Jerry DeLisle jvdelisle@charter.net
Thu Nov 28 16:05:00 GMT 2019


On 11/28/19 7:53 AM, Steve Kargl wrote:
> On Thu, Nov 28, 2019 at 07:45:25AM -0800, Jerry DeLisle wrote:
>> +	      if (u == FMT_ZERO)
>> +		{
>> +		  if (!gfc_notify_std (GFC_STD_F2018,
>> +				      "Positive exponent width required in "
>> +				      "format string at %L", &format_locus))
>> +		    {
>> +		      saved_token = u;
>> +		      goto fail;
>> +		    }
>> +		}
>> +	      else
>> +		{
>> +		  error = G_("Positive exponent width required in format"
>> +			     "string at %L");
> 
> This needs a space after "format" or before "string".
> 
>> +		  goto syntax;
>> +		}
>>   	    }
> 

Fixed. OK with that?

Jerry



More information about the Fortran mailing list