blob: 76c15e97baa161cfb06e2c544e4d8e230e01152d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
!
! PR fortran/45916
! ICE with generic type-bound operator
module m_sort
implicit none
type, abstract :: sort_t
contains
generic :: operator(.gt.) => gt_cmp
procedure(gt_cmp), deferred :: gt_cmp
end type sort_t
interface
logical function gt_cmp(a,b)
import
class(sort_t), intent(in) :: a, b
end function gt_cmp
end interface
end module m_sort
|
