5   subroutine foo(x)  subroutine
14 …!ERROR: 'foo' may not be the name of both a generic interface and a procedure unless it is a speci…  argument
15   interface foo  interface
24 subroutine foo  subroutine
36   type :: foo  type
41   interface foo  interface
47   type :: foo  type
51   function foo(x)  function
56   type :: foo  type
59   interface foo  interface
63   function foo(x)  function