3 ! PR 57306: [OOP] ICE on valid with class pointer initialization
5 ! Contributed by Andrew Benson <abensonca@gmail.com>
17 class(c
), pointer :: px
=> x
18 class(c
), pointer :: py
=> y
20 if (.not
. associated(px
, x
)) call abort()
21 if (.not
. same_type_as(px
, x
)) call abort()
22 if (.not
. associated(py
, y
)) call abort()
23 if (.not
. same_type_as(py
, y
)) call abort()