re PR fortran/70149 ([F08] Character pointer initialization causes ICE)
2018-09-30 Paul Thomas <pault@gcc.gnu.org> PR fortran/70149 * trans-decl.c (gfc_get_symbol_decl): A deferred character length pointer that is initialized needs the string length to be initialized as well. 2018-09-30 Paul Thomas <pault@gcc.gnu.org> PR fortran/70149 * gfortran.dg/deferred_character_24.f90 : New test. From-SVN: r264721
This commit is contained in:
parent
5e8b5d90ca
commit
8ba60ec434
|
@ -1,3 +1,10 @@
|
|||
2018-09-30 Paul Thomas <pault@gcc.gnu.org>
|
||||
|
||||
PR fortran/70149
|
||||
* trans-decl.c (gfc_get_symbol_decl): A deferred character
|
||||
length pointer that is initialized needs the string length to
|
||||
be initialized as well.
|
||||
|
||||
2018-09-29 Paul Thomas <pault@gcc.gnu.org>
|
||||
|
||||
PR fortran/65667
|
||||
|
|
|
@ -1759,7 +1759,17 @@ gfc_get_symbol_decl (gfc_symbol * sym)
|
|||
&& TREE_CODE (sym->ts.u.cl->backend_decl) != INDIRECT_REF)
|
||||
{
|
||||
gfc_finish_var_decl (length, sym);
|
||||
gcc_assert (!sym->value);
|
||||
if (!sym->attr.associate_var
|
||||
&& TREE_CODE (length) == VAR_DECL
|
||||
&& sym->value && sym->value->ts.u.cl->length)
|
||||
{
|
||||
gfc_expr *len = sym->value->ts.u.cl->length;
|
||||
DECL_INITIAL (length) = gfc_conv_initializer (len, &len->ts,
|
||||
TREE_TYPE (length),
|
||||
false, false, false);
|
||||
}
|
||||
else
|
||||
gcc_assert (!sym->value);
|
||||
}
|
||||
|
||||
gfc_finish_var_decl (decl, sym);
|
||||
|
|
|
@ -1,3 +1,8 @@
|
|||
2018-09-30 Paul Thomas <pault@gcc.gnu.org>
|
||||
|
||||
PR fortran/70149
|
||||
* gfortran.dg/deferred_character_24.f90 : New test.
|
||||
|
||||
2018-09-29 H.J. Lu <hongjiu.lu@intel.com>
|
||||
|
||||
PR target/87370
|
||||
|
|
|
@ -0,0 +1,23 @@
|
|||
! { dg-do run }
|
||||
!
|
||||
! Test the fix for PR70149 in which the string length for
|
||||
! 'number_string' was not initialized.
|
||||
!
|
||||
! Contributed by Walter Spector <w6ws@earthlink.net>
|
||||
!
|
||||
module myptr_mod
|
||||
implicit none
|
||||
|
||||
integer, target, save :: int_data = 42
|
||||
character(16), target, save :: char_data = 'forty two'
|
||||
|
||||
integer, pointer :: number => int_data
|
||||
character(:), pointer :: number_string => char_data
|
||||
|
||||
end module
|
||||
|
||||
use myptr_mod
|
||||
if (LEN (number_string) .ne. 16) stop 1
|
||||
if (trim (number_string) .ne. 'forty two') stop 2
|
||||
end
|
||||
|
Loading…
Reference in New Issue