4f0bea4d61
Change fundersoring test with a more accurate regex to ensure the lack of a trailing underscore, current TC is failing on AIX Co-authored-by: Mark Danial <mark.danial@ibm.com>
25 lines
652 B
Fortran
25 lines
652 B
Fortran
! Test the -funderscoring flag
|
|
|
|
! RUN: %flang_fc1 -S %s -o - 2>&1 | FileCheck %s --check-prefix=UNDERSCORING
|
|
! RUN: %flang_fc1 -S -fno-underscoring %s -o - 2>&1 | FileCheck %s --check-prefix=NO-UNDERSCORING
|
|
|
|
subroutine test()
|
|
common /comblk/ a, b
|
|
external :: ext_sub
|
|
call ext_sub()
|
|
end
|
|
|
|
! UNDERSCORING: test_
|
|
! UNDERSCORING-NOT: {{test:$}}
|
|
! UNDERSCORING: ext_sub_
|
|
! UNDERSCORING-NOT: {{ext_sub[^_]*$}}
|
|
! UNDERSCORING: comblk_
|
|
! UNDERSCORING-NOT: comblk,
|
|
|
|
! NO-UNDERSCORING-NOT: test_
|
|
! NO-UNDERSCORING: test:
|
|
! NO-UNDERSCORING-NOT: ext_sub_
|
|
! NO-UNDERSCORING: {{ext_sub[^_]*$}}
|
|
! NO-UNDERSCORING-NOT: comblk_
|
|
! NO-UNDERSCORING: {{comblk[^_]*$}}
|