! RUN: %python %S/test_modfile.py %s %flang_fc1

! Cray pointer
module m
  integer :: pte
  pointer(ptr,pte)
  integer :: apte
  pointer(aptr,apte(7))
end

!Expect: m.mod
!module m
!integer(4)::pte
!integer(8)::ptr
!pointer(ptr,pte)
!integer(4)::apte(1_8:7_8)
!integer(8)::aptr
!pointer(aptr,apte)
!end