20 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12 3! Cray pointer4module m5 integer :: pte6 pointer(ptr,pte)7 integer :: apte8 pointer(aptr,apte(7))9end10 11!Expect: m.mod12!module m13!integer(4)::pte14!integer(8)::ptr15!pointer(ptr,pte)16!integer(4)::apte(1_8:7_8)17!integer(8)::aptr18!pointer(aptr,apte)19!end20