36 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m3 type :: t4 procedure(a), pointer, pass :: c5 procedure(a), pointer, pass(x) :: d6 contains7 procedure, pass(y) :: a, b8 end type9contains10 subroutine a(x, y)11 class(t) :: x, y12 end13 subroutine b(y)14 class(t) :: y15 end16end module17 18!Expect: m.mod19!module m20! type::t21! procedure(a),pass,pointer::c22! procedure(a),pass(x),pointer::d23! contains24! procedure,pass(y)::a25! procedure,pass(y)::b26! end type27!contains28! subroutine a(x,y)29! class(t)::x30! class(t)::y31! end32! subroutine b(y)33! class(t)::y34! end35!end36