59 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Ensure that intrinsics in module files retain their 'private' attribute,3! if they are private.4 5module m16 intrinsic :: selected_real_kind7 public :: selected_real_kind8end module9!Expect: m1.mod10!module m111!intrinsic::selected_real_kind12!end13 14module m215 use m1, only: foo => selected_real_kind16 real(foo(5,10)) :: x17end module18!Expect: m2.mod19!module m220!use m1,only:foo=>selected_real_kind21!real(4)::x22!end23 24module m325 intrinsic :: selected_real_kind26 private :: selected_real_kind27end module28!Expect: m3.mod29!module m330!intrinsic::selected_real_kind31!private::selected_real_kind32!end33 34module m435 use m336 external :: selected_real_kind37end module38!Expect: m4.mod39!module m440!procedure()::selected_real_kind41!end42 43module m544 private45 intrinsic :: selected_real_kind46end module47!Expect: m5.mod48!module m549!intrinsic::selected_real_kind50!private::selected_real_kind51!end52 53use m254use m455use m556print *, kind(x)57end58 59