http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55825
--- Comment #1 from janus at gcc dot gnu.org 2012-12-28 17:36:39 UTC ---
Reduced test case:
program construct_poly
implicit none
type :: interior
real :: x
end type interior
type :: t_ptr
class(interior), pointer :: r(:) => null()
end type t_ptr
type(t_ptr) :: o1
type(interior), target :: r(3)
o1 = t_ptr(r)
end program
This gives me:
test.f90:16.13:
o1 = t_ptr(r)
1
Error: The rank of the element in the structure constructor at (1) does not
match that of the component (1/0)
test.f90:16.13:
o1 = t_ptr(r)
1
Error: Can't convert TYPE(interior) to CLASS(interior) at (1)
For the original test case, I get some more of these errors (on line 38, 52 and
63).
