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