Issue 83164
Summary [Flang] fir.rebox verification failure when passing rank-2 actual to polymorphic assumed-size dummy
Labels bug, flang:fir-hlfir
Assignees
Reporter DanielCChen
    Consider the following code:
```
type base
  integer :: i
end type
class(base), pointer :: b1(:,:)
call sub(b1)
contains
subroutine sub(arg)
class(base) :: arg(1:*)
end
end
```

Flang currently issues
```
error: loc("t1.f":5:1): 'fir.rebox' op result type and shape operand ranks must match
error: verification of lowering to FIR failed
```

XLF, gfortran and ifort all compile this successfully.
_______________________________________________
llvm-bugs mailing list
[email protected]
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs

Reply via email to