22 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse-with-symbols -fopenmp -fopenmp-version=50 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2 3subroutine f4 implicit none5 integer :: x6 !$omp critical(c)7 x = 08 !$omp end critical(c)9end10 11!UNPARSE: !DEF: /f (Subroutine) Subprogram12!UNPARSE: subroutine f13!UNPARSE: implicit none14!UNPARSE: !DEF: /f/x ObjectEntity INTEGER(4)15!UNPARSE: integer x16!UNPARSE: !$omp critical(c)17!UNPARSE: !REF: /f/x18!UNPARSE: x = 019!UNPARSE: !$omp end critical(c)20!UNPARSE: end subroutine21 22