The attached code produces incorrect answers with the latest compiler - 11.1.064.
-----------------------------------------------------------------------------------------------------
module circleClass
implicit none
type circleObj
real :: radius
end type circleObj
contains
subroutine edit( circle )
class(circleObj) :: circle
write(6,*) circle%radius
end subroutine edit
end module circleClass
!
!------------------------------------------------------
!
program test
use circleClass
implicit none
class(CircleObj), allocatable :: circles(:)
allocate(circles(2))
circles(1)%radius = 1.
circles(2)%radius = 2.
call edit(circles(2))
end
-----------------------------------------------------------------------------------------------------
The correct answer should be 2.0, not 1.0 as the program produces??? Has anyone seen a similar problem?
