2 ! { dg-options "-std=f2003" }
7 function sub2() bind(C
) ! { dg-error "GNU Extension: LOGICAL result variable 'sub2' at .1. with non-C_Bool kind in BIND.C. procedure 'sub2'" }
8 logical(kind
=8) :: sub2
9 logical(kind
=4) :: local
! OK
12 function sub4() bind(C
) result(res
) ! { dg-error "GNU Extension: LOGICAL result variable 'res' at .1. with non-C_Bool kind in BIND.C. procedure 'sub4'" }
13 logical(kind
=2) :: res
14 logical(kind
=4) :: local
! OK
18 subroutine sub(x
) bind(C
) ! { dg-error "GNU Extension: LOGICAL dummy argument 'x' at .1. with non-C_Bool kind in BIND.C. procedure 'sub'" }
22 subroutine sub3(y
) bind(C
)
23 use iso_c_binding
, only
: c_bool
24 logical(kind
=c_bool
) :: y
! OK