59 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12MODULE M13 TYPE T14 REAL(KIND=4), DIMENSION(:, :), POINTER :: ptr => Null()5 END TYPE T16 7 TYPE O18 TYPE(T1), POINTER :: d => Null()9 END TYPE O110END MODULE11 12!Expect: m1.mod13!module m114!type::t115!real(4),pointer::ptr(:,:)=>NULL()16!end type17!intrinsic::null18!type::o119!type(t1),pointer::d=>NULL()20!end type21!end22 23MODULE M224 USE M1,only : &25 o1_prv => o126 27 public28 TYPE D129 TYPE(o1_prv), PRIVATE :: prv = o1_prv ()30 END TYPE D131END MODULE32 33!Expect: m2.mod34!module m235!use m1,only:o1_prv=>o136!type::d137!type(o1_prv),private::prv=o1_prv(d=NULL())38!end type39!end40 41MODULE M342 USE M2 , only : d1_prv => D143 44 PUBLIC45 TYPE d1_ext46 TYPE(d1_prv), PRIVATE :: prv = d1_prv()47 END TYPE48END MODULE49 50!Expect: m3.mod51!module m352!use m2,only:o1_prv53!use m2,only:d1_prv=>d154!private::o1_prv55!type::d1_ext56!type(d1_prv),private::prv=d1_prv(prv=o1_prv(d=NULL()))57!end type58!end59