35 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse-with-symbols -fopenmp %s 2>&1 | FileCheck %s2 3! This used to crash.4 5module test6 contains7 function ex(a, b, c)8 !$omp declare target(ex)9 integer :: a, b, c10 ex = a + b + c11 end function ex12end module test13 14!CHECK: !DEF: /test Module15!CHECK: module test16!CHECK: contains17!CHECK: !DEF: /test/ex PUBLIC (Function, OmpDeclareTarget) Subprogram REAL(4)18!CHECK: !DEF: /test/ex/a ObjectEntity INTEGER(4)19!CHECK: !DEF: /test/ex/b ObjectEntity INTEGER(4)20!CHECK: !DEF: /test/ex/c ObjectEntity INTEGER(4)21!CHECK: function ex(a, b, c)22!CHECK: !$omp declare target(ex)23!CHECK: !REF: /test/ex/a24!CHECK: !REF: /test/ex/b25!CHECK: !REF: /test/ex/c26!CHECK: integer a, b, c27!CHECK: !DEF: /test/ex/ex (Implicit, OmpDeclareTarget) ObjectEntity REAL(4)28!CHECK: !REF: /test/ex/a29!CHECK: !REF: /test/ex/b30!CHECK: !REF: /test/ex/c31!CHECK: ex = a+b+c32!CHECK: end function ex33!CHECK: end module test34 35