de09e7ebc9
Runtime error occurs when the type of the value argument is character(0): "Zero-length string passed as value...". The status argument, intent(out), will contain -1 if the value of the environment is too large to fit in the value argument, this is the case if the type is character(0) so there is no reason to produce a runtime error if the value argument is zero length. 2020-08-24 Mark Eggleston <markeggleston@gcc.gnu.org> libgfortran/ PR fortran/96486 * intrinsics/env.c: If value_len is > 0 blank the string. Copy the result only if its length is > 0. 2020-08-24 Mark Eggleston <markeggleston@gcc.gnu.org> gcc/testsuite/ PR fortran/96486 * gfortran.dg/pr96486.f90: New test. |
||
|---|---|---|
| .. | ||
| abort.c | ||
| access.c | ||
| args.c | ||
| associated.c | ||
| c99_functions.c | ||
| chdir.c | ||
| chmod.c | ||
| clock.c | ||
| cpu_time.c | ||
| cshift0.c | ||
| ctime.c | ||
| date_and_time.c | ||
| dprod_r8.f90 | ||
| dtime.c | ||
| env.c | ||
| eoshift0.c | ||
| eoshift2.c | ||
| erfc_scaled_inc.c | ||
| erfc_scaled.c | ||
| etime.c | ||
| execute_command_line.c | ||
| exit.c | ||
| extends_type_of.c | ||
| f2c_specifics.F90 | ||
| fnum.c | ||
| gerror.c | ||
| getcwd.c | ||
| getlog.c | ||
| getXid.c | ||
| hostnm.c | ||
| ierrno.c | ||
| is_contiguous.c | ||
| ishftc.c | ||
| kill.c | ||
| link.c | ||
| move_alloc.c | ||
| mvbits.c | ||
| pack_generic.c | ||
| perror.c | ||
| rand.c | ||
| random_init.f90 | ||
| random.c | ||
| rename.c | ||
| reshape_generic.c | ||
| reshape_packed.c | ||
| selected_char_kind.c | ||
| selected_int_kind.f90 | ||
| selected_real_kind.f90 | ||
| signal.c | ||
| size.c | ||
| sleep.c | ||
| spread_generic.c | ||
| stat.c | ||
| string_intrinsics_inc.c | ||
| string_intrinsics.c | ||
| symlnk.c | ||
| system_clock.c | ||
| system.c | ||
| time_1.h | ||
| time.c | ||
| trigd_lib.inc | ||
| trigd.c | ||
| trigd.inc | ||
| umask.c | ||
| unlink.c | ||
| unpack_generic.c | ||