public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/100813] New: Function of array of pointers to abstract class returning an array
@ 2021-05-28 13:34 mailling-lists-bd at posteo dot de
2021-05-31 8:38 ` [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0 marxin at gcc dot gnu.org
` (4 more replies)
0 siblings, 5 replies; 6+ messages in thread
From: mailling-lists-bd at posteo dot de @ 2021-05-28 13:34 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100813
Bug ID: 100813
Summary: Function of array of pointers to abstract class
returning an array
Product: gcc
Version: 10.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: mailling-lists-bd at posteo dot de
Target Milestone: ---
Hello,
I was trying to write a function that takes an array of pointers to an abstract
class as argument, and that returns an array with a shape determined by a
member of the mentioned abstract class. The following example segfaults with
gfortran 10.3 on Opensuse:
module baseClass
implicit none
type, abstract, public :: base
integer, allocatable :: i(:)
contains
procedure(sub), deferred, pass :: mysub
end type base
abstract interface
subroutine sub(bb)
import :: base
class(base), intent(in) :: bb
end subroutine sub
end interface
type, public :: baseWrap
class(base), pointer :: p
end type baseWrap
public :: operate_on_baseWrap
contains
function operate_on_baseWrap(wrapped) result(res)
class(baseWrap), intent(in) :: wrapped(:)
integer :: i, tmp
integer, dimension(size(wrapped(1)%p%i)) :: res
do i=1, size(wrapped)
call wrapped(i)%p%mysub
end do
res = 0
end function operate_on_baseWrap
end module baseClass
module childClass
use baseClass
implicit none
type, extends(base), public :: child1
contains
procedure, pass :: mysub => sub_child1
end type child1
contains
subroutine sub_child1(bb)
class(child1), intent(in) :: bb
print *, 'Do something', bb%i
end subroutine sub_child1
end module childClass
program test
use baseClass
use childClass
implicit none
type(baseWrap), allocatable :: wrapper(:)
type(child1), allocatable, target :: c(:)
integer :: i
integer, allocatable :: tmp(:)
allocate(wrapper(3))
allocate(c(3))
do i=1, 3
allocate(c(i)%i(3))
c(i)%i = i
wrapper(i)%p => c(i)
end do
allocate(tmp(size(wrapper(1)%p%i)))
tmp = operate_on_baseWrap(wrapper)
end program test
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0
2021-05-28 13:34 [Bug fortran/100813] New: Function of array of pointers to abstract class returning an array mailling-lists-bd at posteo dot de
@ 2021-05-31 8:38 ` marxin at gcc dot gnu.org
2021-05-31 10:53 ` dominiq at lps dot ens.fr
` (3 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: marxin at gcc dot gnu.org @ 2021-05-31 8:38 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100813
Martin Liška <marxin at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |marxin at gcc dot gnu.org,
| |vehre at gcc dot gnu.org
Summary|Function of array of |Function of array of
|pointers to abstract class |pointers to abstract class
|returning an array |returning an array since
| |r6-202-gf3b0bb7a560be0f0
--- Comment #1 from Martin Liška <marxin at gcc dot gnu.org> ---
Started with r6-202-gf3b0bb7a560be0f0.
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0
2021-05-28 13:34 [Bug fortran/100813] New: Function of array of pointers to abstract class returning an array mailling-lists-bd at posteo dot de
2021-05-31 8:38 ` [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0 marxin at gcc dot gnu.org
@ 2021-05-31 10:53 ` dominiq at lps dot ens.fr
2022-04-21 18:25 ` mikael at gcc dot gnu.org
` (2 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: dominiq at lps dot ens.fr @ 2021-05-31 10:53 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100813
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Ever confirmed|0 |1
Last reconfirmed| |2021-05-31
Status|UNCONFIRMED |NEW
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0
2021-05-28 13:34 [Bug fortran/100813] New: Function of array of pointers to abstract class returning an array mailling-lists-bd at posteo dot de
2021-05-31 8:38 ` [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0 marxin at gcc dot gnu.org
2021-05-31 10:53 ` dominiq at lps dot ens.fr
@ 2022-04-21 18:25 ` mikael at gcc dot gnu.org
2022-04-22 12:31 ` marxin at gcc dot gnu.org
2024-06-12 7:23 ` vehre at gcc dot gnu.org
4 siblings, 0 replies; 6+ messages in thread
From: mikael at gcc dot gnu.org @ 2022-04-21 18:25 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100813
Mikael Morin <mikael at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |mikael at gcc dot gnu.org
--- Comment #2 from Mikael Morin <mikael at gcc dot gnu.org> ---
It seems to work with a recent master (12.0.1 20220410).
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0
2021-05-28 13:34 [Bug fortran/100813] New: Function of array of pointers to abstract class returning an array mailling-lists-bd at posteo dot de
` (2 preceding siblings ...)
2022-04-21 18:25 ` mikael at gcc dot gnu.org
@ 2022-04-22 12:31 ` marxin at gcc dot gnu.org
2024-06-12 7:23 ` vehre at gcc dot gnu.org
4 siblings, 0 replies; 6+ messages in thread
From: marxin at gcc dot gnu.org @ 2022-04-22 12:31 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100813
Martin Liška <marxin at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Known to work| |12.0
CC| |burnus at gcc dot gnu.org
--- Comment #3 from Martin Liška <marxin at gcc dot gnu.org> ---
Yes, it was fixed with r12-7526-gc0134b7383992aab.
@Tobias: Is it a dup of any of the PRs referenced in the commit (PR99585,
PR104430)?
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0
2021-05-28 13:34 [Bug fortran/100813] New: Function of array of pointers to abstract class returning an array mailling-lists-bd at posteo dot de
` (3 preceding siblings ...)
2022-04-22 12:31 ` marxin at gcc dot gnu.org
@ 2024-06-12 7:23 ` vehre at gcc dot gnu.org
4 siblings, 0 replies; 6+ messages in thread
From: vehre at gcc dot gnu.org @ 2024-06-12 7:23 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100813
Andre Vehreschild <vehre at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Assignee|unassigned at gcc dot gnu.org |vehre at gcc dot gnu.org
See Also| |https://gcc.gnu.org/bugzill
| |a/show_bug.cgi?id=104430
Status|NEW |RESOLVED
Resolution|--- |FIXED
--- Comment #4 from Andre Vehreschild <vehre at gcc dot gnu.org> ---
Reported to be working now. Closing.
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2024-06-12 7:23 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-05-28 13:34 [Bug fortran/100813] New: Function of array of pointers to abstract class returning an array mailling-lists-bd at posteo dot de
2021-05-31 8:38 ` [Bug fortran/100813] Function of array of pointers to abstract class returning an array since r6-202-gf3b0bb7a560be0f0 marxin at gcc dot gnu.org
2021-05-31 10:53 ` dominiq at lps dot ens.fr
2022-04-21 18:25 ` mikael at gcc dot gnu.org
2022-04-22 12:31 ` marxin at gcc dot gnu.org
2024-06-12 7:23 ` vehre at gcc dot gnu.org
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).