This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/69385] [6 regression] ICE on valid with -fcheck=all


https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69385

--- Comment #3 from Paul Thomas <pault at gcc dot gnu.org> ---
Hi,

The immediate problem is that

      if (gfc_option.rtcheck & GFC_RTCHECK_MEM
          && gfc_expr_attr (expr1).allocatable
          && expr1->rank
          && !expr2->rank)
        {

in gfc_trans_assignment_1 needs to be replaced with:

      if (gfc_option.rtcheck & GFC_RTCHECK_MEM
          && !init_flag
          && gfc_expr_attr (expr1).allocatable
          && expr1->rank
          && !expr2->rank)
        {

This fixes this PR. However, looking again at this block, I think that the code
is just not right. I will work on it.

Cheers

Paul

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]