mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
15 lines
355 B
Fortran
15 lines
355 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR fortran/53985
|
|
!
|
|
! Check that the (default) -Wno-c-binding-type works
|
|
! and no warning is printed.
|
|
!
|
|
! With -Wc-binding-type, one gets:
|
|
! Warning: Variable 'x' at (1) is a dummy argument to the BIND(C) procedure
|
|
! 'test' but may not be C interoperable )
|
|
!
|
|
subroutine test(x) bind(C)
|
|
integer :: x
|
|
end subroutine test
|