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[^_]*$}}
|