1!RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck --allow-empty %s 2!CHECK-NOT: error: 3program main 4 sin = 1 5 block 6 intrinsic sin 7 print *, sin(0.) 8 end block 9end 10