brintos / llvm-project-archived public Read only

Text · 184 B · ce296c8 Raw

7 lines · plain

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