Hi,
When I try to compile the code below, I get an error that says that the specified interface is not declared. Is this a bug or am I doing something wrong?
Thanks!
module mod1
abstract interface
subroutine sub1(data1)
integer, intent(INOUT) :: data1
end subroutine
end interface
contains
subroutine sub2(data1, proc)
integer, intent(INOUT) :: data1
procedure(sub1), optional :: proc
if (PRESENT(proc)) call proc(data1)
end subroutine
end module mod1
