13 lines · plain
1! RUN: %flang_fc1 -fopenmp -emit-llvm -debug-info-kind=standalone %s -o -2 3! Test that this does not cause build failure.4function s(x)5 character(len=2) :: x, s, ss6 7 s = x8 9 entry ss()10 11end function s12 13 1! RUN: %flang_fc1 -fopenmp -emit-llvm -debug-info-kind=standalone %s -o -2 3! Test that this does not cause build failure.4function s(x)5 character(len=2) :: x, s, ss6 7 s = x8 9 entry ss()10 11end function s12 13