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 Update copyright years. 2020-01-01 12:51:42 +01:00
access.c Update copyright years. 2020-01-01 12:51:42 +01:00
args.c Update copyright years. 2020-01-01 12:51:42 +01:00
associated.c Update copyright years. 2020-01-01 12:51:42 +01:00
c99_functions.c libgfortran: Provide some further math library fallbacks [PR94694] 2020-04-22 21:34:19 +02:00
chdir.c Update copyright years. 2020-01-01 12:51:42 +01:00
chmod.c Update copyright years. 2020-01-01 12:51:42 +01:00
clock.c Update copyright years. 2020-01-01 12:51:42 +01:00
cpu_time.c Update copyright years. 2020-01-01 12:51:42 +01:00
cshift0.c Update copyright years. 2020-01-01 12:51:42 +01:00
ctime.c Update copyright years. 2020-01-01 12:51:42 +01:00
date_and_time.c Update copyright years. 2020-01-01 12:51:42 +01:00
dprod_r8.f90 Update copyright years. 2020-01-01 12:51:42 +01:00
dtime.c Update copyright years. 2020-01-01 12:51:42 +01:00
env.c Fortran : get_environment_variable runtime error PR96486 2020-08-24 11:13:11 +01:00
eoshift0.c Update copyright years. 2020-01-01 12:51:42 +01:00
eoshift2.c Update copyright years. 2020-01-01 12:51:42 +01:00
erfc_scaled_inc.c Update copyright years. 2020-01-01 12:51:42 +01:00
erfc_scaled.c Update copyright years. 2020-01-01 12:51:42 +01:00
etime.c Update copyright years. 2020-01-01 12:51:42 +01:00
execute_command_line.c Update copyright years. 2020-01-01 12:51:42 +01:00
exit.c Update copyright years. 2020-01-01 12:51:42 +01:00
extends_type_of.c Update copyright years. 2020-01-01 12:51:42 +01:00
f2c_specifics.F90 Update copyright years. 2020-01-01 12:51:42 +01:00
fnum.c Update copyright years. 2020-01-01 12:51:42 +01:00
gerror.c Update copyright years. 2020-01-01 12:51:42 +01:00
getcwd.c Update copyright years. 2020-01-01 12:51:42 +01:00
getlog.c Update copyright years. 2020-01-01 12:51:42 +01:00
getXid.c Update copyright years. 2020-01-01 12:51:42 +01:00
hostnm.c Update copyright years. 2020-01-01 12:51:42 +01:00
ierrno.c Update copyright years. 2020-01-01 12:51:42 +01:00
is_contiguous.c Update copyright years. 2020-01-01 12:51:42 +01:00
ishftc.c Update copyright years. 2020-01-01 12:51:42 +01:00
kill.c Update copyright years. 2020-01-01 12:51:42 +01:00
link.c Update copyright years. 2020-01-01 12:51:42 +01:00
move_alloc.c Update copyright years. 2020-01-01 12:51:42 +01:00
mvbits.c Update copyright years. 2020-01-01 12:51:42 +01:00
pack_generic.c Update copyright years. 2020-01-01 12:51:42 +01:00
perror.c Update copyright years. 2020-01-01 12:51:42 +01:00
rand.c Update copyright years. 2020-01-01 12:51:42 +01:00
random_init.f90 Update copyright years. 2020-01-01 12:51:42 +01:00
random.c Update copyright years. 2020-01-01 12:51:42 +01:00
rename.c Update copyright years. 2020-01-01 12:51:42 +01:00
reshape_generic.c Update copyright years. 2020-01-01 12:51:42 +01:00
reshape_packed.c Update copyright years. 2020-01-01 12:51:42 +01:00
selected_char_kind.c Update copyright years. 2020-01-01 12:51:42 +01:00
selected_int_kind.f90 Update copyright years. 2020-01-01 12:51:42 +01:00
selected_real_kind.f90 Update copyright years. 2020-01-01 12:51:42 +01:00
signal.c Update copyright years. 2020-01-01 12:51:42 +01:00
size.c Update copyright years. 2020-01-01 12:51:42 +01:00
sleep.c Update copyright years. 2020-01-01 12:51:42 +01:00
spread_generic.c Update copyright years. 2020-01-01 12:51:42 +01:00
stat.c Update copyright years. 2020-01-01 12:51:42 +01:00
string_intrinsics_inc.c Update copyright years. 2020-01-01 12:51:42 +01:00
string_intrinsics.c Update copyright years. 2020-01-01 12:51:42 +01:00
symlnk.c Update copyright years. 2020-01-01 12:51:42 +01:00
system_clock.c Update copyright years. 2020-01-01 12:51:42 +01:00
system.c Update copyright years. 2020-01-01 12:51:42 +01:00
time_1.h Update copyright years. 2020-01-01 12:51:42 +01:00
time.c Update copyright years. 2020-01-01 12:51:42 +01:00
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 Update copyright years. 2020-01-01 12:51:42 +01:00
unlink.c Update copyright years. 2020-01-01 12:51:42 +01:00
unpack_generic.c Update copyright years. 2020-01-01 12:51:42 +01:00