| ! This contains both testcases in the PR |
| ! Contributed by Tomas Trnka <trnka@scm.com> |
| module BogusPointerArgError |
| class(AType), allocatable :: x |
| call B (x) ! Was an error here |
| class(AType), intent(in) :: y |
| class(AType), intent(in) :: z(:) |
| generic, public :: assignment(=) => Assign |
| procedure, private :: Assign |
| subroutine Assign(lhs, rhs) |
| class(AType), intent(inout) :: lhs |
| class(AType), intent(in) :: rhs |
| module ICEGetDescriptorField |
| class(AType), intent(in) :: x(:) |
| class(AType), allocatable :: y |
| y = xxx ! Was an ICE here |
| end module ICEGetDescriptorField |