25 lines · plain
1! Test the -funderscoring flag2 3! RUN: %flang_fc1 -S %s -o - 2>&1 | FileCheck %s --check-prefix=UNDERSCORING4! RUN: %flang_fc1 -S -fno-underscoring %s -o - 2>&1 | FileCheck %s --check-prefix=NO-UNDERSCORING5 6subroutine test()7 common /comblk/ a, b8 external :: ext_sub9 call ext_sub()10end11 12! UNDERSCORING: test_13! UNDERSCORING-NOT: {{test:$}}14! UNDERSCORING: ext_sub_15! UNDERSCORING-NOT: {{ext_sub[^_]*$}}16! UNDERSCORING: comblk_17! UNDERSCORING-NOT: comblk,18 19! NO-UNDERSCORING-NOT: test_20! NO-UNDERSCORING: test:21! NO-UNDERSCORING-NOT: ext_sub_22! NO-UNDERSCORING: {{ext_sub[^_]*$}}23! NO-UNDERSCORING-NOT: comblk_24! NO-UNDERSCORING: {{comblk[^_]*$}}25