brintos / llvm-project-archived public Read only

Text · 151 B · 939985e Raw

6 lines · plain

1! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s2!CHECK-NOT: error:3real x4print *, char(48, kind=size([x])) ! folds down to 15end6