diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2025-08-31 20:42:23 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2025-09-01 21:51:17 +0200 |
| commit | 082483dd79040d49351fac9074fc10c7dd810598 (patch) | |
| tree | c96b76d3e9f6edbc7675c112ccf96daf52f4d4a8 /libcpp/errors.c | |
| parent | 188be0dff053050a4fe73d596fbefdb612d7646b (diff) | |
| download | gcc-082483dd79040d49351fac9074fc10c7dd810598.zip gcc-082483dd79040d49351fac9074fc10c7dd810598.tar.gz gcc-082483dd79040d49351fac9074fc10c7dd810598.tar.bz2 | |
Fortran: truncate constant string passed to character,value dummy [PR121727]
PR fortran/121727
gcc/fortran/ChangeLog:
* trans-expr.cc (gfc_const_length_character_type_p): New helper
function.
(conv_dummy_value): Use it to determine if a character actual
argument has a constant length. If a character actual argument is
constant and longer than the dummy, truncate it at compile time.
gcc/testsuite/ChangeLog:
* gfortran.dg/value_10.f90: New test.
Diffstat (limited to 'libcpp/errors.c')
0 files changed, 0 insertions, 0 deletions