1! { dg-do compile } 2! 3! PR fortran/53985 4! 5! Check that the (default) -Wno-c-binding-type works 6! and no warning is printed. 7! 8! With -Wc-binding-type, one gets: 9! Warning: Variable 'x' at (1) is a dummy argument to the BIND(C) procedure 10! 'test' but may not be C interoperable ) 11! 12subroutine test(x) bind(C) 13 integer :: x 14end subroutine test 15