(j3.2006) Interp 64 question

[Bill Long]

Consider the module

module procedure_pointers_05_m
  type x
    integer a
    procedure(sub1),pointer,pass(passed)::ptr1
    procedure(sub2),pointer,pass(passed)::ptr2
    procedure(sub2),pointer,pass::ptr3
  endtype

  interface
    subroutine sub1(a,passed)
      import :: x
      integer a
      type(x) :: passed
    endsubroutine

    subroutine sub2(passed,a)
      import :: x
      integer a
      type(x) :: passed
    endsubroutine
  endinterface
endmodule


If I read the current state of interp 64 (not yet passed) it seems the 
above is not conforming because the interfaces come after their use in 
the definition of type X.   But the interfaces use type X.  Is this 
really what we intended?

Cheers,
Bill

-- 
Bill Long                                   longb at cray.com
Fortran Technical Support    &              voice: 651-605-9024
Bioinformatics Software Development         fax:   651-605-9142
Cray Inc., 1340 Mendota Heights Rd., Mendota Heights, MN, 55120