5 ! The following program was ICEing at tree-check time
6 ! "L()" was regarded as default-kind logical.
8 ! Contributed by Kirill Chilikin
13 LOGICAL(C_BOOL
) FUNCTION L() BIND(C
)
14 USE, INTRINSIC :: ISO_C_BINDING
18 LOGICAL(8) FUNCTION L2() BIND(C
) ! { dg-warning "GNU Extension: LOGICAL result variable 'l2' at .1. with non-C_Bool kind in BIND.C. procedure 'l2'" }