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