public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/107331] New: Extension and assigning of type results in GNU internal compiler error
@ 2022-10-20 9:21 d.mentock at mpie dot de
2022-10-31 14:20 ` [Bug fortran/107331] " d.mentock at mpie dot de
2022-10-31 18:55 ` anlauf at gcc dot gnu.org
0 siblings, 2 replies; 3+ messages in thread
From: d.mentock at mpie dot de @ 2022-10-20 9:21 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107331
Bug ID: 107331
Summary: Extension and assigning of type results in GNU
internal compiler error
Product: gcc
Version: 10.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: d.mentock at mpie dot de
Target Milestone: ---
The following fortran program results in an internal compiler error:
module my_test_module
type :: baseType
contains
procedure :: &
asExtended => baseType_asExtended
end type baseType
type, extends(baseType) :: extendedType
end type extendedType
contains
function baseType_asExtended(self) result(extended)
class(baseType), intent(in), target :: self
class(extendedType), pointer :: extended
select type(self)
class is (extendedType)
extended => self
class default
nullify(extended)
end select
end function baseType_asExtended
end module my_test_module
Program TEST
use my_test_module
implicit none
class(baseType), pointer :: &
generic_object
type(extendedType) :: &
extended_object
allocate(extendedType::generic_object) ! compiler error happens without this
line as well
extended_object = generic_object%asExtended()
End Program TEST
-->
34 | extended_object = generic_object%asExtended()
| 1
internal compiler error: in conv_function_val, at fortran/trans-expr.c:4158
Please submit a full bug report,
with preprocessed source if appropriate.
See <file:///usr/share/doc/gcc-10/README.Bugs> for instructions.
The same code has no problems compiling on intel’s ifort 2021.6.0 20220226.
Modifying the main program TEST as following stops the error from occurring on
GNU:
Program TEST
use my_test_module
implicit none
class(baseType), pointer :: &
generic_object
type(extendedType) :: &
extended_object
type(extendedType), pointer :: &
generic_object_pointer
allocate(extendedType::generic_object)
generic_object_pointer => generic_object%asExtended()
extended_object = generic_object_pointer
End Program TEST
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Bug fortran/107331] Extension and assigning of type results in GNU internal compiler error
2022-10-20 9:21 [Bug fortran/107331] New: Extension and assigning of type results in GNU internal compiler error d.mentock at mpie dot de
@ 2022-10-31 14:20 ` d.mentock at mpie dot de
2022-10-31 18:55 ` anlauf at gcc dot gnu.org
1 sibling, 0 replies; 3+ messages in thread
From: d.mentock at mpie dot de @ 2022-10-31 14:20 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107331
--- Comment #1 from d.mentock at mpie dot de ---
Created attachment 53802
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=53802&action=edit
test program that triggers the reported bug with gcc 10.3.0
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Bug fortran/107331] Extension and assigning of type results in GNU internal compiler error
2022-10-20 9:21 [Bug fortran/107331] New: Extension and assigning of type results in GNU internal compiler error d.mentock at mpie dot de
2022-10-31 14:20 ` [Bug fortran/107331] " d.mentock at mpie dot de
@ 2022-10-31 18:55 ` anlauf at gcc dot gnu.org
1 sibling, 0 replies; 3+ messages in thread
From: anlauf at gcc dot gnu.org @ 2022-10-31 18:55 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107331
anlauf at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Ever confirmed|0 |1
Status|UNCONFIRMED |NEW
Last reconfirmed| |2022-10-31
--- Comment #2 from anlauf at gcc dot gnu.org ---
Confirmed for all gcc version tested (>= 7).
Workaround: replace
extended_object = generic_object%asExtended()
by
extended_object = baseType_asExtended (generic_object)
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2022-10-31 18:55 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-10-20 9:21 [Bug fortran/107331] New: Extension and assigning of type results in GNU internal compiler error d.mentock at mpie dot de
2022-10-31 14:20 ` [Bug fortran/107331] " d.mentock at mpie dot de
2022-10-31 18:55 ` anlauf 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).