brintos / llvm-project-archived public Read only

1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2subroutine subr(ar)3  real(8) :: ar(..)4!CHECK:  PRINT *, 8_45  print *, kind(ar)6end7