brintos / llvm-project-archived public Read only

1! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck --allow-empty %s2!CHECK-NOT: error:3 1    function fun()4 2    end function5 3    write(6,*) "pass"6 4    end7 8