3 ! This should compile without error.
9 module procedure foo_sngl
10 module procedure foo_dble
15 subroutine foo_sngl(n
, f
, g
, h
)
18 end subroutine foo_sngl
20 subroutine foo_dble(n
, f
, g
, h
)
22 double precision f
, g
, h
23 end subroutine foo_dble