flang/test/Semantics/modfile15.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 module m
   3   type :: t
   4     procedure(a), pointer, pass :: c
   5     procedure(a), pointer, pass(x) :: d
   6   contains
   7     procedure, pass(y) :: a, b
   8   end type
   9 contains
  10   subroutine a(x, y)
  11     class(t) :: x, y
  12   end
  13   subroutine b(y)
  14     class(t) :: y
  15   end
  16 end module
  17
  18 !Expect: m.mod
  19 !module m
  20 !  type::t
  21 !    procedure(a),pass,pointer::c
  22 !    procedure(a),pass(x),pointer::d
  23 !  contains
  24 !    procedure,pass(y)::a
  25 !    procedure,pass(y)::b
  26 !  end type
  27 !contains
  28 !  subroutine a(x,y)
  29 !    class(t)::x
  30 !    class(t)::y
  31 !  end
  32 !  subroutine b(y)
  33 !    class(t)::y
  34 !  end
  35 !end