blob: f2cedcb976340accbe7bbd8e6e81143e605d8e88 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
!
! PR fortran/46244 (comments 7 to 9)
!
! gfortran accepted CLASS in bind(C) and SEQUENCE types
!
type :: t
integer :: i
end type t
type t2
sequence
class(t), pointer :: x ! { dg-error "Polymorphic component x at .1. in SEQUENCE or BIND" }
end type t2
type, bind(C):: t3
class(t), pointer :: y
! { dg-warning "may not be C interoperable" "" { target *-*-* } 17 }
! { dg-error "Polymorphic component y at .1. in SEQUENCE or BIND" "" { target *-*-* } 17 }
end type t3
end
|
