! 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 |