brintos / llvm-project-archived public Read only

1!RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s2!CHECK-NOT: error:3program main4  sin = 15  block6    intrinsic sin7    print *, sin(0.)8  end block9end10