[patch, fortran] PR46079 ABI for empty stop statement broken

[Jerry DeLisle]

On 10/19/2010 05:33 PM, Jerry DeLisle wrote:
> On 10/19/2010 12:45 PM, Mikael Morin wrote:
--- snip ---
>> Let's keep error_stop_string care about strings only. (Please!)
>>
> Thanks for bringing this up. It was bothering me too I will gladly do this
> diffently and will re-submit the patch.

Attached is a revised patch.  This produces for the following:

   real, dimension(5,5,5) :: i
   stop
   stop 47
   stop "string 1"
   stop size(i)
   error stop
   error stop 37
   error stop size(i)
   error stop "string 2"

   _gfortran_stop_string (0B, 0);
   _gfortran_stop_numeric_f08 (47);
   _gfortran_stop_string (&"string 1"[1]{lb: 1 sz: 1}, 8);
   _gfortran_stop_numeric_f08 (125);
   _gfortran_error_stop_string (0B, 0);
   _gfortran_error_stop_numeric (37);
   _gfortran_error_stop_numeric (125);
   _gfortran_error_stop_string (&"string 2"[1]{lb: 1 sz: 1}, 8);

Regression tested.  OK for trunk?

Jerry
-------------- next part --------------
A non-text attachment was scrubbed...
Name: newstop.diff
Type: text/x-patch
Size: 4179 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20101020/2d750f53/attachment.bin>