20 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m3 contains4 function f() result(ptr)5 character :: str6 pointer(ptr, str)7 ptr = 08 end9end10 11!Expect: m.mod12!module m13!contains14!function f() result(ptr)15!integer(8)::ptr16!pointer(ptr,str)17!character(1_8,1)::str18!end19!end20