1*602e5098Skkwli! RUN: %python %S/test_modfile.py %s %flang_fc1 2*602e5098Skkwli 3*602e5098Skkwli! Cray pointer 4*602e5098Skkwlimodule m 5*602e5098Skkwli integer :: pte 6*602e5098Skkwli pointer(ptr,pte) 7*602e5098Skkwli integer :: apte 8*602e5098Skkwli pointer(aptr,apte(7)) 9*602e5098Skkwliend 10*602e5098Skkwli 11*602e5098Skkwli!Expect: m.mod 12*602e5098Skkwli!module m 13*602e5098Skkwli!integer(4)::pte 14*602e5098Skkwli!integer(8)::ptr 15*602e5098Skkwli!pointer(ptr,pte) 16*602e5098Skkwli!integer(4)::apte(1_8:7_8) 17*602e5098Skkwli!integer(8)::aptr 18*602e5098Skkwli!pointer(aptr,apte) 19*602e5098Skkwli!end 20