mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-12 18:05:09 +08:00
8e6d7b8a35
2005-04-15 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/18495
* intrinsics/spread_generic.c (spread): Remove const from
return array descriptor.
New variables: rrank (rank of return array), rs (for
calculating the size of the return array), srank (rank
of the source array).
Generate runtime error if the dim= argument is larger than
the rank of the return array.
Generate runtime error if the needed rank of the return
array is larger than 7.
If ret->data is null, populate the return array descriptor
and initialize the variables for the actual operation.
Otherwise, set ret->dim[0].stride to one if it is zero.
Change second, independent use of variable dim to srank.
2005-04-15 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/18495
* gfortran.fortran-torture/execute/intrinsic_spread.f90:
Test callee-allocated version of return array with a write
statement.
Test spread with a temporary with another write statement.
From-SVN: r98208
|
||
|---|---|---|
| .. | ||
| abort.c | ||
| args.c | ||
| associated.c | ||
| bessel.c | ||
| c99_functions.c | ||
| chdir.c | ||
| cpu_time.c | ||
| cshift0.c | ||
| date_and_time.c | ||
| dprod_r8.f90 | ||
| env.c | ||
| eoshift0.c | ||
| eoshift2.c | ||
| erf.c | ||
| etime.c | ||
| exit.c | ||
| flush.c | ||
| fnum.c | ||
| gerror.c | ||
| getcwd.c | ||
| getlog.c | ||
| getXid.c | ||
| hostnm.c | ||
| ierrno.c | ||
| ishftc.c | ||
| kill.c | ||
| link.c | ||
| mvbits.c | ||
| pack_generic.c | ||
| perror.c | ||
| rand.c | ||
| random.c | ||
| rename.c | ||
| reshape_generic.c | ||
| reshape_packed.c | ||
| selected_int_kind.f90 | ||
| selected_real_kind.f90 | ||
| size.c | ||
| sleep.c | ||
| spread_generic.c | ||
| stat.c | ||
| string_intrinsics.c | ||
| symlnk.c | ||
| system_clock.c | ||
| system.c | ||
| time.c | ||
| transpose_generic.c | ||
| umask.c | ||
| unlink.c | ||
| unpack_generic.c | ||