gcc/libgfortran/intrinsics
Mark Eggleston de09e7ebc9 Fortran : get_environment_variable runtime error PR96486
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.
2020-08-24 11:13:11 +01:00
..
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 Fortran : get_environment_variable runtime error PR96486 2020-08-24 11:13:11 +01:00
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 Protect the trigd functions in libgfortran from unavailable math functions. 2020-04-23 10:11:01 -04:00
trigd.c Protect the trigd functions in libgfortran from unavailable math functions. 2020-04-23 10:11:01 -04:00
trigd.inc Protect the trigd functions in libgfortran from unavailable math functions. 2020-04-23 10:11:01 -04:00
umask.c
unlink.c
unpack_generic.c