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