blob: 5b7fe92e9ee02326ce064b67c62214d4d0342374 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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
|