[Bug fortran/105372] New: The result of the merge function is different when it's type of parameters is the extensions type of derived type

[Bug fortran/105372] New: The result of the merge function is different when it's type of parameters is the extensions type of derived type

[xudong.luo@compiler-dev.com]

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

            Bug ID: 105372
           Summary: The result of the merge function is different when
                    it's type of parameters  is the extensions type of
                    derived type
           Product: gcc
           Version: 11.3.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: xudong.luo@compiler-dev.com
  Target Milestone: ---

Whether the mask is a constant or a variable causes inconsistent results of the
merge function when it's type of parameters  is the extensions type of derived
type.
1.The mask is constant
Program test00
  Type t
    Integer :: c
  End Type
  Type,Extends(t) :: t2
    Integer :: c2
  End Type
  Class(t),Allocatable :: x,y,r
  logical :: ok = .true.
  x = t2(1,-1)
  y = t2(2,-2)
  r = merge (x,y,.true.)
  Select Type (z=>r)
  Type Is (t)
    print *,z%c
  Type Is (t2)
    print *,z%c,z%c2
  End Select
End Program
2. The mask is variable
Program test01
  Type t
    Integer :: c
  End Type
  Type,Extends(t) :: t2
    Integer :: c2
  End Type
  Class(t),Allocatable :: x,y,r
  logical :: ok = .true.
  integer :: i = 1
  x = t2(1,-1)
  y = t2(2,-2)
  r = merge (x,y,i == 1)
  Select Type (z=>r)
  Type Is (t)
    print *,z%c
  Type Is (t2)
    print *,z%c,z%c2
  End Select
End Program

[Bug fortran/105372] The result of the merge function is different when it's type of parameters is the extensions type of derived type

[schwab@linux-m68k.org]

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

Andreas Schwab <schwab@linux-m68k.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|---                         |DUPLICATE

--- Comment #1 from Andreas Schwab <schwab@linux-m68k.org> ---
dup

*** This bug has been marked as a duplicate of bug 105371 ***