1module test_signature 2 3 interface 4 subroutine subb (arg) 5 type(atype) :: arg 6 end subroutine 7 end interface 8 9contains 10 subroutine suba & 11 (a, & 12 ! comment 13 b) 14 integer a, b 15 end subroutine 16 17 real function fna() 18 use, intrinsic :: iso_c_binding 19 end function 20 21 subroutine fnb 22 integer :: a 23 end subroutine 24 25end module test_signature 26