[Bug fortran/64692] New: Incorrect result for sourced allocate of class(*) array

[Bug fortran/64692] New: Incorrect result for sourced allocate of class(*) array

[antony at cosmologist dot info]

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

            Bug ID: 64692
           Summary: Incorrect result for sourced allocate of class(*)
                    array
           Product: gcc
           Version: 5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: antony at cosmologist dot info

The following code gives incorrect output in trunk ('array 1' and 'array 2'
should be the same):

module Y
contains

    subroutine AddArray(P)
    class(*), target, intent(in) :: P(:)
    class(*), pointer :: Pt(:)

        allocate(Pt(1:SIZE(P)), source= P)

    select type (P)
    type is (double precision)
      print *,'array 1',P
    end select

    select type (Pt )
    type is (double precision)
      print *,'array 2',Pt
    end select

   end subroutine

end module Y

program test
use Y
double precision P(2,2)

P(1:2,1)=[1.d0,2.d0]
P(1:2,2) = [3.d0,4.d0]
call AddArray(P(1:2,2))

end program test


The select types are just there to show the output, they aren't needed for the
bug.

[Bug fortran/64692] Incorrect result for sourced allocate of class(*) array

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2015-01-24
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed for 4.9 and 5.0 (r220065):

 array 1   3.0000000000000000        4.0000000000000000     
 array 2   4.0000000000000000        6.9532175754940950E-310

I suspect an off-by-one problem. Note that with 4.8.4 I get

 array 1   3.0000000000000000        4.0000000000000000     
 array 2   1.0000000000000000        2.0000000000000000

[Bug fortran/64692] Incorrect result for sourced allocate of class(*) array

[antony at cosmologist dot info]

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

--- Comment #2 from Antony Lewis <antony at cosmologist dot info> ---
May be same/related to http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60322 ?

[Bug fortran/64692] Incorrect result for sourced allocate of class(*) array

[vehre at gcc dot gnu.org]

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

vehre at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |vehre at gcc dot gnu.org

--- Comment #3 from vehre at gcc dot gnu.org ---
IMHO, this is not only related to 60322, but the same bug. The major difference
in the output is due to the bug being applied multiple times consecutively.

[Bug fortran/64692] Incorrect result for sourced allocate of class(*) array

[vehre at gcc dot gnu.org]

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

vehre at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED

--- Comment #4 from vehre at gcc dot gnu.org ---
Just for the stupid me, we are expecting to see:

 array 1   3.0000000000000000        4.0000000000000000     
 array 2   3.0000000000000000        4.0000000000000000

right?

[Bug fortran/64692] Incorrect result for sourced allocate of class(*) array

[dominiq at lps dot ens.fr]

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

--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> ... we are expecting to see:
>
>  array 1   3.0000000000000000        4.0000000000000000     
>  array 2   3.0000000000000000        4.0000000000000000
>
> right?

Yes.

[Bug fortran/64692] Incorrect result for sourced allocate of class(*) array

[vehre at gcc dot gnu.org]

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

vehre at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|---                         |FIXED

--- Comment #6 from vehre at gcc dot gnu.org ---
The error does not occur anymore. So presumably fixed with pr60322. Closing.