[Bug fortran/54147] [F03] Interface checks for PPCs & TBPs

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54147

--- Comment #1 from janus at gcc dot gnu.org 2012-07-31 20:36:41 UTC ---
Equivalent test case for TBPs:


  interface gen
    procedure gen
  end interface

  type, abstract :: t1
  contains
    procedure(gen),deferred,nopass  :: p1
    procedure(gen2),deferred,nopass :: p2
  end type

  type, abstract :: t2
  contains
    procedure(sf),deferred,nopass   :: p3
  end type

  type, abstract :: t3
  contains
    procedure(char),deferred,nopass :: p4
  end type

  interface gen2
    procedure gen
  end interface

  sf(x) = x**2

contains

  subroutine gen
  end subroutine

end