1! RUN: %S/test_modfile.sh %s %t %f18 2module 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 9contains 10 subroutine a(x, y) 11 class(t) :: x, y 12 end 13 subroutine b(y) 14 class(t) :: y 15 end 16end 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 36