xref: /llvm-project/flang/test/Semantics/modfile57.f90 (revision 602e50989802820d99069925369b837806e46016)
1! RUN: %python %S/test_modfile.py %s %flang_fc1
2
3! Cray pointer
4module m
5  integer :: pte
6  pointer(ptr,pte)
7  integer :: apte
8  pointer(aptr,apte(7))
9end
10
11!Expect: m.mod
12!module m
13!integer(4)::pte
14!integer(8)::ptr
15!pointer(ptr,pte)
16!integer(4)::apte(1_8:7_8)
17!integer(8)::aptr
18!pointer(aptr,apte)
19!end
20