https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83976
--- Comment #5 from G. Steinmetz ---
Slightly shorter :
$ cat zz1.f90
program p
type t
end type
class(t), allocatable :: x
type(t) :: y
y = (x)
end
$ cat zz2.f90
program p
type t
end type
class(t) :: x
type(t) :: y
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83976
Dominique d'Humieres changed:
What|Removed |Added
Status|UNCONFIRMED |NEW
Last reconfirmed|
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83976
--- Comment #3 from G. Steinmetz ---
A class/type issue - changing x from class to type :
$ cat z3.f90
program p
type t
integer :: a
end type
type(t), allocatable :: x
type(t) :: z = t(3)
x = z
z =
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83976
Harald Anlauf changed:
What|Removed |Added
CC||anlauf at gmx dot de
--- Comment #2
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83976
--- Comment #1 from G. Steinmetz ---
This variant works as expected :
$ cat z2.f90
program p
type t
integer :: a
end type
class(t), allocatable :: x
type(t) :: z = t(3)
x = z
z = x
print *, z
end