diff options
| author | Olivier Hainque <hainque@adacore.com> | 2008-03-21 13:18:35 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2008-03-21 13:18:35 +0000 |
| commit | f4351641f0c9a8d7d0962da084bb9127ce41bef8 (patch) | |
| tree | 7dd9334039fab5a07642c27136c90dcf452b6bc4 /libgfortran/libgfortran.h | |
| parent | 10c5d1a0a8cf531acc940ca357894e807f1b90d8 (diff) | |
| download | gcc-f4351641f0c9a8d7d0962da084bb9127ce41bef8.zip gcc-f4351641f0c9a8d7d0962da084bb9127ce41bef8.tar.gz gcc-f4351641f0c9a8d7d0962da084bb9127ce41bef8.tar.bz2 | |
trans.c (Attribute_to_gnu): Compute as (hb < lb) ? 0 : hb - lb + 1 instead of max (hb - lb + 1, 0).
2008-03-21 Olivier Hainque <hainque@adacore.com>
ada/
* trans.c (Attribute_to_gnu) <'length>: Compute as (hb < lb)
? 0 : hb - lb + 1 instead of max (hb - lb + 1, 0).
testsuite/
* gnat.dg/empty_vector_length.adb: New testcase.
From-SVN: r133423
Diffstat (limited to 'libgfortran/libgfortran.h')
0 files changed, 0 insertions, 0 deletions