! { dg-do compile } | |
! | |
! PR 57639: [OOP] ICE with polymorphism (and illegal code) | |
! | |
! Contributed by Walter Spector <w6ws@earthlink.net> | |
implicit none | |
class(*) :: t1, t2 ! { dg-error "must be dummy, allocatable or pointer" } | |
print *, 'main: compare = ', compare (t1, t2) | |
print *, SAME_TYPE_AS (t1, t2) | |
contains | |
logical function compare (a, b) | |
class(*), intent(in), allocatable :: a, b | |
end function | |
end |