70 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m3 type t14 contains5 procedure, nopass :: s26 procedure, nopass :: s37 procedure :: r8 generic :: foo => s29 generic :: read(formatted)=> r10 end type11 type, extends(t1) :: t212 contains13 procedure, nopass :: s414 generic :: foo => s315 generic :: foo => s416 end type17contains18 subroutine s2(i)19 end20 subroutine s3(r)21 end22 subroutine s4(z)23 complex :: z24 end25 subroutine r(dtv, unit, iotype, v_list, iostat, iomsg)26 class(t1), intent(inout) :: dtv27 integer, intent(in) :: unit28 character (len=*), intent(in) :: iotype29 integer, intent(in) :: v_list(:)30 integer, intent(out) :: iostat31 character (len=*), intent(inout) :: iomsg32 end33end34 35!Expect: m.mod36!module m37! type::t138! contains39! procedure,nopass::s240! procedure,nopass::s341! procedure::r42! generic::foo=>s243! generic::read(formatted)=>r44! end type45! type,extends(t1)::t246! contains47! procedure,nopass::s448! generic::foo=>s349! generic::foo=>s450! end type51!contains52! subroutine s2(i)53! integer(4)::i54! end55! subroutine s3(r)56! real(4)::r57! end58! subroutine s4(z)59! complex(4)::z60! end61! subroutine r(dtv,unit,iotype,v_list,iostat,iomsg)62! class(t1),intent(inout)::dtv63! integer(4),intent(in)::unit64! character(*,1),intent(in)::iotype65! integer(4),intent(in)::v_list(:)66! integer(4),intent(out)::iostat67! character(*,1),intent(inout)::iomsg68! end69!end70