gcc/testsuite/gfortran.dg/bind_c_usage_26.f90

   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 !
  12 subroutine test(x) bind(C)
  13   integer :: x
  14 end subroutine test