mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 15:36:49 +00:00
20 lines
303 B
Fortran
20 lines
303 B
Fortran
! 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
|