[JITLink][arm64] Support arm64e JIT'd code (initially enabled for MachO only).

[llvm-project.git] / flang / test / Evaluate / fold-assumed-type-rank.f90

! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
subroutine sub3(ar_at)
  type(*) :: ar_at(..)
!CHECK:  PRINT *, int(int(rank(ar_at),kind=8),kind=4)
  print *, rank(ar_at)
end